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1.  INTRODUCTION . 


Logic  and  logic  programming  have  generated  considerable 
Interest  in  the  computer  science  and  AI  communities.  Partly 
this  is  due  to  the  ability  to  express  facts  and  relationship 
about  objects  in  the  real  world  in  a  natural  way  using 
logic.  Also,  there  is  a  need  to  begin  exploiting  parallel 
computer  architectures.  This  makes  logic  programming  look 
attractive.  Logic  programs  do  not  specify  the  sequence  of 
execution  and  so  are  readily  adaptable  to  parallel  arehitec- 
tures  [Pereira  1978],  [van  Emden  1976]. 


A  major  cause  of  inefficiency  in  executing  logic  pro¬ 
grams  is  that  the  search  space  is  large  and  often  contains 
paths  that  ultimately  result  in  failure.  Typical  logic  pro¬ 
gramming  systems  such  as  PROLOG  [Roussel  1975]  [Roberts 
1977]  use  backtracking  to  find  another  path  to  explore  upon 
failure.  Kohll  et  al  [Kohll  1983]  presented  a  theory  of 
using  integrity  constraints  to  guide  the  execution  of  func¬ 
tion  free  logic  programs.  This  theory  can  be  applied  to 
conventional  or  parallel  execution  of  logic  programs.  Until 
now,  this  theory  has  remained  largely  untested  or  imple¬ 
mented  in  logic  programming  systems. 


The  Parallel  Inference  System,  PRISM  is  under  develop¬ 
ment  by  Minker  et  al  [Eisinger  1981]  [Minker  1982]  [Kasif 
1983]  at  the  University  of  Maryland.  This  system  is  to  be 
Implemented  on  a  new  parallel  machine,  called  ZMOB  [Rieger 
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1980 , 1 981  a , b] .  In  the  PRISM  system,  there  are  several  dif¬ 
ferent  types  of  machines  that  run  on  separate  processors  and 
cooperate  to  execute  a  logic  program.  These  processors  are 
Problem  Solvers  (PSM),  Intensional  Database  (IDB)  and  Exten- 
sional  Database  (EDB)  machines.  Currently,  the  system  is 
implemented  on  a  VAX  11/780  using  a  ZMOB  belt  simulator. 
However,  no  use  of  integrity  constraints  has  been  made  on 
this  system. 

Futo  [Futo  1984],  based  upon  Kohli's  earlier  work, 
developed  the  concept  of  a  Constraint  Machine  (CM).  This 
machine  is  another  module  that  would  run  on  a  separate  pro¬ 
cessor  in  the  PRISM  system  and  use  integrity  constraints  to 
guide  the  PSMs  in  their  search  for  solutions.  The  purpose 
of  the  CM  is  to  help  a  PSM  prune  branches  from  its  goal  tree 
based  upon  a  database  of  integrity  constraints. 

1.1.  Contributions  of  this  Thesis. 

This  thesis  describes  an  implementation  if  a  Constraint 
Machine  and  an  associated  constraint  machine  compiler.  The 
CM  has  been  coded  in  C  and  runs  on  the  VAX  11/780.  It  has 
been  designed  to  run  in  the  PRISM  simulated  system  on  the 
VAX.  It  presents  the  opportunity  to  test  the  theory  that 
integrity  constraints  can  be  used  to  improve  the  search  of  a 
logic  program  interpreter.  The  compiler  is  an  integral  part 
of  the  CM  since  it  is  necessary  to  compile  the  user  supplied 
database  of  Integrity  constraints  for  use  by  the  constraint 
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machine  during  execution. 

1.2  Outline  of  the  Thesis. 

Section  2  is  a  brief  introduction  into  logic  program¬ 
ming  and  in  particular  subsumption;  the  ZMOB  on  which  the 
PRISM  system  is  to  ultimately  run;  and  the  current  PRISM 
system  itself.  Section  3  describes  the  constraint  machine 
compiler  and  database  of  integrity  constraints.  Section  4 
describes  the  constraint  machine,  its  data  structures  and 
communications  with  the  rest  of  the  PRISM  system.  Section  5 
describes  future  needs  of  the  PRISM  system  and  the  CM  in 
order  to  make  the  CM  an  integral  part  of  the  PRISM  system. 
Section  6  is  a  summary  of  the  thesis.  Finally,  there  are  4 
appendices.  Appendix  A  contains  the  grammar  for  the  con¬ 
straint  database.  Appendix  B  is  the  constraint  machine  com¬ 
piler  code.  Appendix  C  is  the  code  of  the  CM  Itself.  Both 
Appendices  B  and  C  are  C  code  source  listings. 


2.  BACKGROUND  -  LOGIC,  ZNOB,  PRISM. 

Logic  is  thought  by  many  to  be  the  parallel  programming 
language  of  the  future.  ZMOB  is  a  new  parallel  computer 
architecture.  PRISM  is  a  system  designed  to  take  advantage 
of  parallel  logic  programming  and  the  ZMOB  parallel  archi¬ 
tecture  . 

2.1.  Introduction  to  Logic  and  Logic  Programming. 

In  this  section,  I  give  a  brief  introduction  to  the 
clausal  form  of  logic  and  logio  programming.  For  further 
details  the  reader  should  see  Kowalski  [Kowalski  1979]  or 
Chang  and  Lee  [Chang  1973]  for  logic  and  Clocksin  [Clocksin 
1981]  for  logic  programming. 

2.1.1.  Clausal  Form  of  Logic. 

The  first  order  predicate  calculus  has  always  been  a 
good  representation  for  knowledge  in  the  real  world.  Unfor¬ 
tunately,  unrestricted  logic  is  difficult  to  deal  with  in  a 
computer  program  because  of  the  variety  of  ways  of 
representing  the  same  facts.  Usually,  all  logic  statements 
are  first  converted  into  clausal  form.  An  algorithm  to  do 
this  is  presented  in  any  introductory  logic  text.  A  clause 
is  defined  as  a  disjunction  of  literals.  In  turn,  a  literal 
is  defined  as  an  atom  or  negation  of  an  atom.  An  atom  is  a 
predicate  symbol  and  its  associated  terms.  Terms  are  vari¬ 
ables,  constants  or  functions  of  terms.  Thus,  some  olauses 
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1.  Father(x)  II  Mother(x) 

2.  P(f (y))  I  I  R( " John" ) 

3.  *’Parent( "  John”  ,y ) 

4.  ~P(x)  | |  Q ( y )  I  I  R(z)  | |  -T(w) 

where  "  stands  for  NOT  and  II  stands  for  logical  OR.  Typi¬ 
cally  predicates  begin  with  capital  letters,  variables  are 
lower  case  letters  near  the  end  of  the  alphabet,  functions 
are  lower  case  letters  in  the  range  of  f  -  h  and  constants 
are  strings. 

Clauses  can  be  rewritten  using  implication  and  the 
identity  "P  I  I  Q  s  P  ->  Q,  so  that  4  above  becomes: 

P(x)  &  T (w )  ->  Q(y )  II  R(z) 

Where  &  stands  for  logical  AND  and  ->  stands  for  "implies". 
This  is  read  as  "if  P  of  x  and  T  of  w  are  true  then  so  is  Q 
of  y  and  R  of  z.  Taking  the  notation  used  in  logic  program¬ 
ming,  particularly  PROLOG  this  would  be  rewritten  as: 

Q(y)  II  R ( z )  <-  P(x) ,T(w) 

where  a  comma  has  been  substituted  for  the  logical  AND. 

This  is  then  read  as  "Q  of  y  or  R  of  z  is  true  if  P  of  x  and 

T  of  w  are  true."  If  we  restrict  our  clauses  to  having  only 

one  positive  literal,  then  they  are  called  Horn  clauses. 


Horn  clauses  have  the  standard  form: 

H(x1 ,x2, . . . ,xn)  <-  P1(x1,x2,...xn)...Pm(x1,x2,...xk) 

This  says  that  H  Is  true  if  all  of  the  Pi  are  true.  The 
literal  on  the  left  of  the  <-  is  called  the  head  and  the 
literals  on  the  right  comprise  the  body  of  the  clause.  Most 
logia  programming  is  restricted  to  Horn  clauses.  Obviously, 
there  are  4  types  of  Horn  clauses  depending  on  whether  there 
are  literals  on  one  or  both  sides  of  the  <-.  A  Horn  clause 
with  no  body  such  as: 

Father ("chip" ,"karen"  )  <- 

states  a  fact  or  assertion  that  ‘•chip'*  is  the  father  of 
"karen".  A  Horn  clause  with  no  head  represents  negated 
information  and  is  called  a  goal  clause  or  constraint. 

<-  Father ("chip" ,"sam" ) 

The  above  clause  states  that  it  is  not  the  case  that  "chip" 
is  the  father  of  "sam". 

A  Horn  clause  with  both  a  body  and  head  is  called  an 
axiom  or  procedure. 

Parent(x,y)  <-  Father(x,y) 

Parent(x,y)  <-  Mother(x,y) 


These  procedures  state  that  x  is  the  parent  of  y  if  x  is  the 
father  of  y  or  x  is  the  parent  of  y  if  x  is  the  mother  of  y 


respectively.  Notice  that  these  two  procedures  can  be  used 
to  determine  if  x  is  the  parent  of  y  and  either  can  be  tried 
first  or  perhaps  both  in  parallel.  The  first  succeeding 
would  be  the  desired  answer. 

Finally,  the  Horn  clause  with  neither  a  head  nor  body: 

<- 

represents  the  null  clause  and  is  always  false. 

2.1.2  Resolution. 

Just  having  the  clause  (or  Horn  clause)  form  of 
representing  data  alone  is  not  very  useful.  Resolution, 
developed  by  J.  Alan  Robinson,  was  a  major  contribution  to 
the  use  of  logic  in  computer  science  [Robinson  19651.  Reso¬ 
lution  is  an  inference  mechanism  that  can  be  used  with 
clauses  to  deduce  new  information.  Basically,  resolution 
says  that  if  a  set  of  clauses  is  satisfiable,  then  any 
clause  formed  by  combining  two  clauses  and  eliminating  a 
pair  of  matching  but  complimentary  literals  is  also  true. 
For  example,  using  propositional  formulas,  and  given: 

(P  I  I  Q  II  R)  ,  (-P  I  I  T) 

we  can  derive: 

(Q  II  R  II  T) 

This  is  done  by  forming  the  disjunction  of  all  literals  in 


both  clauses  and  eliminating  the  complementary  pair,  P  and 
"P.  If  a  set  of  clauses  is  inconsistent,  then  the  null 
clause  represented  by  [ ]  or  <-,  can  be  derived  from  the 
set  by  resolution. 

In  actual  use  in  logic  programming,  resolution  refuta¬ 
tion  is  used.  Suppose  we  are  given  a  set  of  consistent 
clauses  and  a  goal  clause.  We  wish  to  determine  if  the  goal 
clause  is  a  consequent  of  the  initial  set.  The  procedure 
used  is  to  negate  the  goal  and  add  it  to  the  set  of  clauses. 
If  the  goal  is  a  theorem  of  the  given  set,  adding  the 
negated  theorem  will  maUe  the  set  inconsistent.  Hence  the 
null  clause  can  be  derived  by  resolution.  Taking  an  example 
with  propositional  formula,  suppose  the  given  set  is: 

PROLOG  form  clause  form 

1.  P  <-  Q  P  I  I  "Q 

2.  Q  <-  Q 

and  we  want  to  know  if  P  is  true.  To  do  this  by  resolution 
refutation,  negate  P  to  <-  P  or  "P  and  add  it  to  the  set  of 
clauses . 

3.  <-  P  ~P 

Resolving  1  and  3  above  in  each  case  gives: 


Finally  resolving  2  with  4  gives  the  null  clause  <-  or  []. 
Thus  we  have  shown  that  by  adding  the  negated  goal  to  the 
set,  we  have  made  the  set  inconsistent.  Therefore,  the 
unnegated  goal  is  a  theorem  of  the  original  set. 

2.1.3.  Unification. 

In  propositional  logic,  resolution  is  fairly  straight 
forward.  However,  in  predicate  calculus,  there  is  the  prob¬ 
lem  of  matching  terms  in  the  literal  as  well  as  the  predi¬ 
cate  symbol.  The  process  which  accomplishes  this  is  called 
unification.  The  unification  principle  says  that  two 
literals  are  unifiable  if  there  is  a  substitution  of  terms 
for  variables  that  makes  the  two  literals  identical.  Thus 
given  two  literals: 

P(x»g(y ) »"a" )  and  P( z ,g("b" ) ,w) 

they  are  unifiable  if  we  substitute  nb"  for  y,  "a"  for  w, 
and  x  for  z.  This  set  of  substitutions  is  called  a  unifier 
or  substitution  set  and  usually  written  as: 

{x/z,  "b"/y,  "a"/w} 

To  solve  a  problem  in  logic  programming  using  unifica¬ 
tion  and  resolution  would  proceed  as  follows.  Start  with 
the  goal  or  negated  theorem.  Pick  a  literal  in  it.  Find  a 
procedure  or  assertion  with  the  same  head  predicate  symbol. 
Determine  if  the  two  literals  are  unifiable.  If  so,  apply 
the  substitution  to  both  clauses.  Expand  the  goal  by  the 


body  of  the  procedure.  Repeat  this  until  all  literals  in 
the  goal  are  solved  or  cannot  be  solved.  If  all  are  solv- 
able,  then  the  goal  is  true.  By  a  process  of  called  answer 
extraction,  the  values  of  any  substituted  variables  can  be 
obtained.  In  resolution,  there  are  usually  many  ways  to 
generate  the  resolvent  clauses.  Many  will  not  lead  to  a 
solution  and  it  is  unlikely  that  the  correct  solution  will 
be  found  the  first  time.  Most  PROLOG  systems  employ  back¬ 
tracking  to  erase  substitutions  that  ultimately  were  not 


provable. 


2.1.4.  Subsumption. 


By  definition,  a  clause  C  is  said  to  subsume  another 
clause  D,  if  there  is  a  substitution  of  C  such  that  it 
becomes  a  subset  of  the  clause  D.  For  example,  the  follow¬ 
ing  clauses  on  the  left  subsume  the  clause  on  the  right. 


subsuming  clause  subsumed  clause 


P(x) 

R(f (y) ,z) 
P(x) 


P("a") 

R(f ("a") ,x) 
P("b»)  I  I  Q ( "a" ) 


substitution 


{"a"/x} 
{"a"/y",  x/z} 
{"b"/x} 


It  is  important  to  note  that  substitution  can  only  be  made 
for  the  variables  in  the  subsuming  clause.  Variables  in  the 
subsumed  clause  can  be  replaced  by  new  distinct  constants 
before  unification  is  attempted  to  avoid  incorrect  substitu¬ 
tions  . 


vv  v  v  v  v 
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In  this  thesis,  I  will  frequently  use  the  phrase  "par¬ 
tial  subsumption"  and  a  "partial  constraint".  Partial  sub¬ 
sumption  is  explained  here,  and  a  partial  constraint  in  the 
next  section.  Given  the  following  clauses: 


(1)  P(x)  | |  Q("a" ) 


(2)  P ( "b" )  | |  R ( " b" ) 


Clause  1  will  "partially  subsume"  clause  2  by  using  the  sub¬ 
stitution  {"b"/x}.  Q("a")  will  remain  from  the  subsuming 
clause,  1,  after  the  partial  subsumption  and  R("b")  will  be 
left  from  clause  2. 


2.1.5.  Integrity  Constraints 


In  the  usual  AI  or  database  definition,  an  integrity 
constraint  is  a  formula  or  condition  that  cannot  be  violated 
if  the  database  is  to  be  consistent.  As  used  in  this 
thesis,  integrity  constraint  is  used  to  signify  a  condition 
that  can  never  be  true  or  perhaps  that  may  be  true,  but  is 
uninteresting  and  not  a  desired  answer  to  a  query  or  set  of 
queries.  In  this  manner,  negated  data  or  a  headless  Horn 
clause  can  be  used  to  eliminate  certain  paths  in  the  goal 
tree.  Note,  that  in  this  situation,  adding  the  constraint 
to  a  consistent  database  could  make  it  inconsistent. 


Kohli  [Kohli  1983]  presented  a  theory  for  directing  a 
logic  program  using  integrity  constraints.  This  is  that 
given  a  database  of  assertions  and  axioms;  a  database  of 


constraints;  and  a  goal  to  solve,  integrity  constraints  can 
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be  used  to  prune  the  goal  tree.  Perhaps,  we  can  discover  an 
unsolvable  path  and  prune  it  before  a  lengthy  search  ulti¬ 
mately  fails.  Similarly,  Integrity  constraints  could  be 
used  to  prevent  finding  some  solutions  that  are  not  desired. 
If  a  constraint  can  subsume  the  goal  clause  or  any  subgoal, 
then  the  goal  or  subgoal  is  unsolvable  or  any  answer  it  pro¬ 
duces  is  not  wanted.  An  example  of  the  use  of  an  integrity 
constraint  in  this  manner  is  shown  in  Figure  1. 

Futo  [Futo  1984]  developed  the  idea  that  rather  than 
test  an  entire  goal  node  for  full  subsumption,  one  could 
keep  track  of  a  sequence  of  partial  subsumptions  that  could 
lead  to  failure.  This  would  be  particularly  useful  in  keep¬ 
ing  communication  traffic  low  as  would  be  desirable  in 
PRISM. 


Integrity  constraints  perhaps  would  be  most  useful  in 
database  applications  where  lengthy  searches  of  data  on 
secondary  storage  are  required.  Also,  they  may  be  useful  in 
preventing  impossible  queries  such  as  find  Parent(x,x). 
Such  facilities  are  not  usually  available  in  logic  program¬ 
ming  systems. 
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database 


constraint 
<-  R ( "a" ) 


P(x)  <-  R  ( x ) 
Q(x)  <-  0(x ) 
R(x)  <-  T(x) 
0(x)  <-  S ( x ) 
R("b")  <- 
S("a»)  <- 
S("b")  <- 
T("b»)  <- 


goal 

<-  P d "a " ) 

/  \ 

{"a"/x}  /  \ 

/  \ 

/  \ 

<-  Q("a")  <-  R("a") 


I 

<-  U("a") 


constraint 
subsumes 
subgoal  so 
Fail. 


<-  S("a" ) 
I 
I 

<- 

succeeds 


Fig.  1.  Example  of  constraint  pruning  goal  tree  branch 


2.2  ZMOB 


ZNOB  is  a  microprocessor  based  parallel  computer  system 
under  development  at  the  University  of  Maryland 
[Rieger  1980,  1981a, b].  For  complete  details,  the  reader  is 
referred  to  the  references.  Contained  here  is  only  a  brief 
description  of  ZMOB  and  the  features  that  have  influenced 
the  design  and  development  of  PRISM  and  the  Constraint 
Machine. 

The  fully  developed  ZMOB  will  consist  of  256  Z-80A 
microprocessors.  Each  Z-80A  has  64K  bytes  of  internal 
memory  and  no  secondary  storage.  Each  microprocessor  is 
connected  to  a  circular  high-speed  shift  register  (called 
the  "conveyor  belt")  by  its  mail  stop  hardware.  The  con¬ 
veyor  belt  consists  of  257  bins,  each  48  bits  wide  that 
"circulate"  around  the  belt.  A  processor  can  read  any  other 
processor's  bin,  including  its  own,  but  can  only  fill  its 
own  bin  when  it  "arrives"  once  each  revolution.  The  48  bits 
consist  of  16  bits  of  data,  12  bits  of  destination  address, 
12  bits  for  the  sender's  address  and  8  bits  for  control 
Information . 

2.2.1.  Receiving  Messages 

Each  processor  has  control  over  its  own  maiistop.  By 
setting  the  control  registers,  it  can  elect  to  receive  mes¬ 
sages  or  block  them  out.  There  are  two  basic  modes  for 
receiving  messages.  The  first  is  by  address  and  the  second 


is  by  pattern.  The  processor  can  enable  either  or  both 
modes  and  if  by  pattern,  set  the  pattern  it  wishes  to 
receive.  The  processor's  address  is  fixed  by  the  mailstop 
hardware.  One  final  modification  can  be  made  to  these  two 
modes.  A  processor  can  set  its  "exclusive  source"  bit  and 
in  this  mode  it  will  only  receive  messages  from  the  desired 
sender.  This  is  useful  for  sending  and  receiving  large 
blocks  of  data  in  an  uninterrupted  manner. 

2.2.2.  Sending  Messages 

When  a  processor  sends  a  message,  it  also  has  the 
option  of  sending  the  message  by  pattern  or  address.  In 
addition,  it  can  elect  to  send  it  to  one  or  all  destina¬ 
tions.  In  the  single  destination  mode,  the  message  circu¬ 
lates  around  the  belt  until  it  arrives  at  its  destination 
(if  by  address)  or  the  first  matching  pattern.  If  not  con¬ 
sumed  by  a  receiver  or  the  sender,  the  message  will  continue 
to  circulate  indefinitely.  The  receiver's  mailstop  removes 
the  message  and  generates  an  inbound  interrupt  to  its  pro¬ 
cessor.  This  empties  the  sender's  bin  allowing  him  to  send 
another  message.  Until  the  receiver  reads  the  message  in 
its  mailstop  inbound  registers,  it  can  not  receive  another 
message.  When  the  sender's  empty  bin  arrives  back  at  its 
own  mailstop,  if  there  is  a  message  to  send,  it  is  injected 
into  the  bln  and  an  outbound  interrupt  generated  to  notify 
the  processor  that  the  next  message  is  on  its  way.  If  the 
message  is  sent  to  all  destinations,  the  only  difference  is 


I 

i 


that  the  bin  is  not  emptied  by  any  of  the  receivers.  The 
sender  oust  do  a  "readback"  of  its  own  message  to  empty  its 
bin  prior  to  sending  further  messages.  A  "readback"  must 
also  be  done  to  a  single  destination  message  that  is  not 
received  by  the  destination.  It  is  important  to  note  that 
an  "all  destinations"  message  is  not  received  by  any  proces¬ 
sor  whose  mailstop  is  not  enabled  or  enabled  in  a  different 
mode.  The  sender  can  elect  to  let  an  unconsumed  message 
circulate  around  the  belt  one  or  more  times  by  setting  his 
"readback"  status. 

2.2.3.  ZMOB  Host 

The  257th  mailstop  is  to  be  used  for  the  host  machine, 
a  VAX  11/780.  The  host  is  the  user's  interface  to  the  ZMOB. 
It  can  communicate  over  the  belt  just  like  any  other  proces¬ 
sor  on  the  belt.  However,  if  it  desires,  the  host  can  send 
messages  in  a  non-maskable  manner.  The  processors  are 
guaranteed  to  receive  a  message  sent  out  in  this  mode, 
regardless  of  their  mailstop  status. 

2.3  PRISM. 

PRISM  is  a  parallel  inference  system  designed  and  con¬ 
strained  to  take  advantage  of  the  inherent  parallelism  of 
logic  programming  and  the  ZMOB  architecture  [Eisinger  1981] 
[Minker  1982][Kasif  1983].  In  this  system,  the  logical 
specification  of  the  program  and  the  control  mechanism  are 
separated.  The  system  is  to  be  distributed  over 
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microprocessors  of  the  2M0B .  There  are  currently  three 
types  of  machines,  the  Problem  Solvers  (PSM),  Intensional 
Database  (IDB)  and  the  Extensional  Database  (EDB)  machines. 
This  division  is  partly  dictated  by  the  size  of  the  proces¬ 
sors  of  the  ZMOB,  the  nature  of  the  algorithms  used  in  unif¬ 
ication  and  the  anticipated  size  ot  the  databases.  A  TAX 
11/780  and  a  PRISM  Host  process  act  as  the  user  interface  to 
the  ZMOB  and  is  referred  to  as  the  Host.  For  complete 
details,  the  reader  is  referred  to  the  references. 

2.3*1.  The  Problem  Solving  Machines  (PSM). 

The  PSM  is  the  heart  of  the  PRISM  system.  Its  primary 
task  is  to  maintain  the  goal  tree.  In  operation,  a  PSM 
receives  a  goal  clause  from  the  Host  process.  This  becomes 
the  root  of  a  tree  of  goal  clauses.  In  order  to  solve  the 
problem,  the  PSM  selects  an  atom  of  the  clause  for  expan¬ 
sion.  Selection  is  guided  by  heuristics  and  user  supplied 
control  structures.  Depending  on  whether  the  selected  atom 
is  in  an  EDB  or  IDB,  it  is  sent  to  one  of  these  processes. 
If  the  selected  atom  unifies  with  either  a  procedure  head  or 
ground  assertion,  the  goal  clause  is  expanded  with  the  pro¬ 
cedure  body  and/or  modified  with  the  unifying  substitution. 

At  any  time,  a  goal  node  can  be  in  one  of  four  states: 
active,  open,  failure,  or  the  empty  clause.  Active  means 


that  the  goal  has  been  selected  for  expansion,  but  has  not 
been  fully  expanded.  Open  means  that  the  clause  has  not 


been  selected  for  expansion.  A  failure  node  Is  unsolvable 
and  an  empty  clause  has  been  solved.  While  the  PSM  Is  wait¬ 
ing  for  answers  from  one  of  the  database  machines,  or 
another  PSM,  It  can  work  on  other  subgoal  nodes  In  the  goal 
tree. 

When  a  PSM  receives  a  goal  clause,  It  begins  to  solve 
It.  If  a  selected  atom  unifies  with  more  than  one  procedure 
head,  then  two  or  more  separate  branches  or  subproblems  are 
generated.  These  are  called  OR  branches  and  can  be  solved 
Independently  of  each  other.  The  PSM  can  try  to  solve  all 
subgoals  or  send  one  or  more  out  to  other  free  PSMs  to 
solve.  The  subgoal  In  another,  child  PSM,  becomes  the  root 
of  a  goal  tree  just  like  the  original  goal  from  the  Host  to 
the  parent  PSM.  When  a  child  PSM  either  solves  its  goal  or 
fails,  it  reports  this  information  back  to  its  parent  PSM. 
The  original  PSM  reports  its  answers  back  to  the  Host  pro¬ 
cess  . 

2.3*2.  Intensional  Database  (IDB). 

The  intensional  database  consists  of  all  of  the  pro¬ 
cedures  or  axioms  of  the  logic  program.  Since  the  pro¬ 
cedures  in  the  IDBs  can  contain  functions,  the  unification 
algorithm  must  have  an  occur  check.  This  is  to  prevent  a 
substitution  of  a  function  for  a  variable  if  the  function 
contains  the  same  variable  as  a  term.  In  most  database 
applications,  it  would  be  expected  that  the  database  of 


axioms  would  be  relatively  small  compared  to  the  extension. 
The  decision  to  separate  the  intension  from  the  extension 
was  made  because  of  the  differences  in  the  unification  algo¬ 
rithms  and  the  relative  size  of  the  two  databases.  In  addi¬ 
tion,  the  target  machine,  the  ZMOB  requires  fairly  small 
programs  and  data  space. 

In  operation,  the  IDBs  await  requests  from  the  PSMs.  A 
PSH  sends  an  atom  it  wishes  to  expand  to  an  available  IDB. 
There  can  be  many  identical  IDB  machines.  The  IDB  matches 
the  atom  against  all  procedure  heads  in  its  database.  If 
the  unification  succeeds  with  one  or  more  procedures,  the 
IDB  sends  a  SUCCEED  message  to  the  PSM,  else  it  sends  a  FAIL 
message.  It  also  stores  the  answers  which  are  the  appropri¬ 
ately  substituted  procedure  bodies  and  substitution  lists. 
In  this  way,  the  IDB  acts  as  a  temporary  buffer  for  the 
PSMs.  Upon  demand  from  the  PSM,  the  IDB  will  send  one  or 
all  of  the  answers  back  to  the  PSM.  Any  of  the  identical 
IDBs  can  service  a  new  request  from  a  PSM.  Therefore,  a  PSM 
may  have  many  IDBs  working  for  it  at  once. 

2.3*3.  Extensional  Database  (EDB). 

The  extensional  database  consists  of  function  free 
ground  assertions.  This  means  there  are  no  variables  or 
functions  as  terms  in  the  assertions  stored  in  the  EDB 
machines.  Each  EDB  contains  different  information,  in  con¬ 
trast  to  the  IDBs.  A  simple  matching  and  substitution  unif- 


ication  algorithm  can  be  used.  A  single  EDB  machine  can 
contain  up  to  16  relation  tables  and  there  can  be  multiple 
EDB  machines.  This  gives  a  relational  database  capability 
of  considerable  size  when  the  number  of  processors  in  the 
ZMOB  is  considered.  The  PSMs  and  EDBs  make  use  of  pattern 
addressed  MATCH  messages  to  identify  which  EDB  contains  the 
desired  relation. 

In  operation,  the  EDB  behaves  similarly  to  the  IDB.  A 
request  from  the  PSM  consists  of  a  literal  with  or  without 
variables.  If  the  unification  succeeds,  the  answers  are 
sent  back  to  the  PSM  on  demand.  Answers  take  the  form  of  a 
SUCCEED  message  for  a  fully  instantiated  query  or  one  or 
more  substitution  lists  for  a  query  with  variables. 

2.3*4.  Host  -  user  Interface. 

The  VAX  11/780  and  the  PRISM  Host  process  are  to  allow 
the  user  to  interact  with  the  problem  solving  system  on 
ZMOB.  The  facilities  of  the  VAX  allow  the  user  to  create 
his  EDB  and  IDB  databases.  Next  using  the  host,  the  confi¬ 
guration  is  selected.  This  is  how  many  IDBs  to  use  and  how 
the  relations  will  be  distributed  in  the  EDBs.  Loading  of 
the  ZMOB  is  accomplished  by  the  Host  after  the  databases  are 
compiled  by  database  compilers  for  each  type  of  machine. 
When  loading  is  complete,  user  queries  are  sent  from  the 
host  to  the  ZMOB  and  answers  returned  to  the  Host.  The  Host 
program  provides  the  user  with  utility  commands  that  he  can 


3.  THE  CONSTRAINT  MACHINE  COMPILER  (CMC) 


In  the  PRISM  system  on  ZMOB,  space  will  be  very  lim¬ 
ited.  All  databases  are  first  compiled  into  a  compact 
internal  representation  with  all  variables,  functions  and 
predicates  represented  as  integers.  Strings  are  stored  cen¬ 
trally  in  a  string  table  and  string  terms  are  represented  by 
pointers  into  the  table.  The  compilation  step  creates  this 
representation  and  also  performs  syntactic  checking  of  the 
user's  database  prior  to  loading. 

3.1.  Constraint  Database. 

The  input  to  the  constraint  machine  compiler  is  a  data¬ 
base  of  constraints  representing  negated  data.  An  example 
of  a  small  constraint  database  is  given  below: 

(1)  <-  Parent(x,x). 

(2)  <-  Grandfather ( x ,y ) , Female ( x ) . 

(3)  <-  Grandf ather (" chip"  ,x) . 

(4)  <-  Married^karen"  ,y ) . 

The  grammar  for  the  constraint  database  is  shown  in  Appendix 
A.  The  meaning  of  the  constraints  is  fairly  straight  for¬ 
ward.  The  first  says  that  no  x  is  his  own  parent,  the 
second  that  no  grandfather  is  female,  the  third  that  "chip" 
is  not  grandfather  of  anyone  and  the  fourth  that  "karen"  is 
not  married  to  anyone. 


the  eom- 


In  addition  to  the  database  of  constraints, 
piler  needs  a  PRISM  tag  file.  The  tag  file  contains  output 
from  the  IDB  and  EDB  compilers.  In  it  are  all  the  predicate 
names,  function  names,  their  mapping  to  internal  integer 
representation  and  the  location  of  predicates  (IDB,  EDB, 
both  or  built  in). 

As  constraints  are  parsed,  the  predicates  are  looked  up 
in  the  tag  file  table  (internal  representation  of  the  tag 
file)  and  converted  to  the  internal  integer  value.  In  case 
an  undefined  predicate  is  encountered  in  a  constraint,  the 
entire  constraint  is  discarded  and  an  appropriate  message 
printed.  A  constraint  that  contains  a  predicate  found 
nowhere  in  the  database  is  either  an  error  or  can  never  be 
violated  so  might  as  well  be  discarded. 

Each  predicate  encountered  is  entered  into  a  predicate 
table  kept  sorted  by  internal  predicate  name.  The  fact  that 
a  predicate  occurs  in  the  current  input  constraint  is  also 
recorded.  This  is  done  to  build  an  index  for  fast  look-up 
of  predicates  during  operation  of  the  Constraint  Machine. 

Terms  in  a  literal  are  handled  in  a  way  similar  to  all 
terms  in  the  PRISM  system.  Each  term  is  tagged  as  to  type: 
FUNCTION,  STRING,  NUMBER  or  CM_VARI ABLE .  Variables  are 
assigned  integer  values  that  are  unique  for  a  given  input 
constraint.  In  the  case  of  strings  and  numbers,  these  are 
handled  differently  than  elsewhere  in  the  PRISM  system.  For 


example,  given  the  constraint  3  above,  the  following  is  gen¬ 
erated  in  corresponding  internal  form: 

Grandfather  (x0,x1),  EQ(xO,"ehip" ) . 

In  this  form,  if  a  partial  subsumption  takes  place  with  an 
IDB  body  such  as: 

Grandf at her (yO,y  1 ) . 

the  result  will  be  a  partial  constraint  of  the  form: 

<-  EQ(yO,Bchip'* ) . 

Subsequently,  if  a  substitution  of  {nchip"/yO}  is  made,  the 
predicate  evaluates  to  true  and  the  constraint  will  subsume 
the  goal  node.  More  will  be  said  about  this  decision  in 
Section  5.  Numbers  are  handled  in  a  manner  similar  to 
strings . 

3.2  Output  of  the  Compiler. 

During  the  parsing  of  the  input  constraint  file,  only 
syntax  errors  and  undefined  predicates  are  reported.  The 
output  from  the  CMC  is  a  file  of  binary  coded  data  suitable 
for  the  CM  to  read  and  create  its  data  structures.  First  in 
the  file  is  the  string  table.  The  string  table  contains 
packed  characters  of  all  the  strings  encountered  in  the  con¬ 
straints.  Representation  of  a  string  in  a  term  consists  of 
a  length  and  offset  into  the  vector  of  characters. 


Following  the  string  table  is  the  predicate  index. 
This  is  nothing  sore  than  the  integer  predicate  name  fol¬ 
lowed  by  a  list  of  constraints  that  contain  the  predicate. 
Constraints  are  identified  by  their  encounter  order  during 
the  parsing  phase.  Finally,  are  the  constraints  themselves, 
represented  as  PRISM  literal  lists. 

In  the  VAX  implementation,  of  the  CM,  the  output  of  the 
CMC  is  read  in  from  a  file.  When  PRISM  is  moved  to  the 
ZMOB,  the  CMC  output  file  will  be  suitable  for  loading  as  a 
block  into  memory  when  the  program  is  loaded  and  instructing 
the  CM  to  begin  reading  at  this  location.  Otherwise,  the  CM 
could  read  this  data  over  the  belt  with  the  "over-the-belt" 
loader. 

3.3  Current  Implementation  of  the  Compiler. 

The  Constraint  compiler  is  written  in  C  using  the  YACC 
compiler  generator  [Johnson  1978].  The  code  for  the  com¬ 
piler  is  reproduced  in  Appendix  B. 


4.  THE  CONSTRAINT  MACHINE  (CM). 

The  Constraint  Machine  (CM)  is  the  program  that  runs  as 
a  separate  process  in  the  VAX  simulated  version  of  PRISM. 
It  will  be  a  separate  processor  in  the  ZMOB  implementation. 
Since  the  PRISM  system  was  implemented  without  the  CM,  its 
design  was  constrained  to  disrupt  the  current  system  as  lit¬ 
tle  as  possible.  Therefore,  the  CM  stores  more  data  and 
communicates  less  with  the  PSM  than  might  be  considered 
optimal.  The  CM  is  an  experimental  part  of  the  PRISM  system 
and  will  be  incorporated  only  if  it  demonstrates  its  utility 
in  the  VAX  simulated  version.  More  is  said  about  making  the 
CM  an  integral  part  of  PRISM  in  Section  5. 

4.1.  Data  Organization  in  the  CM. 

4.1.1.  The  Predicate  Index  and  Constraint  Table. 

The  predicate  index  is  created  at  compile  time  by  the 
CMC  and  read  in  when  the  CM  initializes.  It  is  stored  as  an 
array  of  predicate  names  and  pointers  to  lists  of  constraint 
identifiers  that  contain  the  predicate.  The  predicate  names 
are  sorted  so  that  if  the  number  of  predicates  becomes 
large,  a  fast  binary  search  can  be  used  to  rapidly  find  all 
constraints  that  could  possibly  be  violated  by  a  given  PSM 
input . 

The  constraint  table  is  an  array  of  pointers  to  the 
literal  lists  that  compose  the  constraints.  The  constraint 
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identifier  is  the  array  index  used  to  find  a  pointer  to  the 
constraint  literal  list.  The  combination  of  the  predicate 
index  and  constraint  table  provide  for  reasonably  fast 
retrieval  of  constraints  that  may  be  violated  in  the  data¬ 
base  of  constraints.  Storage  for  these  tables  is  allocated 
from  the  heap  at  the  time  the  compiled  database  is  read. 

4.1.2.  The  Partial  Constraint  Tree. 

The  constraint  machine  must  keep  track  of  all  partial 
subsumptions  that  occur  for  a  given  PSM  goal  node.  Descen¬ 
dant  nodes  of  a  PSM  node  where  a  partial  subsumption 
occurred  must  be  checked  against  this  new  constraint  or  par¬ 
tial  constraint  as  well  as  the  database  of  original  con¬ 
straints.  This  is  because  the  PSM  will  not  send  the  entire 
node  to  the  CM,  but  Just  send  the  body  and  substitution  that 
are  replacing  or  modifying  the  expanded  literal.  The  par¬ 
tial  constraint  tree  keeps  track  of  partial  subsumptions  due 
to  other  literals  that  comprise  the  entire  goal  node  in  the 
PSM. 

The  CM  is  designed  to  be  able  to  handle  multiple  PSMs 
and  multiple  queries  from  each  PSM.  Within  a  given  query, 
no  data  is  stored  unless  a  partial  subsumption  occurs.  From 
that  point  on,  a  corresponding  partial  tree  node  is  created 
for  each  descendant  of  the  PSM  node.  Therefore,  for  a  given 
PSM  goal  tree,  the  CM  may  have  a  forest  of  subtrees,  the 
root  of  each  being  a  PSM  subgoal  node  where  a  partial  sub- 


sumption  occurred 


The  number  of  PSMs  and  queries  within  a  PSM  is  not 
anticipated  to  be  large.  However,  the  number  of  goal  tree 
nodes  within  a  query  may  be  quite  large.  Therefore,  the 
corresponding  number  of  nodes  in  the  partial  tree  may  be 
large.  Locating  a  new  PSM  node's  parent  node  then  becomes  a 
problem.  To  solve  this  problem,  an  array  of  pointers  is 
allocated  with  each  query  node.  The  PSM  parent  node  number, 
modulo  the  size  of  the  pointer  array,  is  used  as  an  index 
into  the  array  of  pointers,  giving  a  pointer  to  the  partial 
tree  node.  A  check  of  the  identified  node's  node  number 
positively  identifies  the  correct  node.  If  the  pointer  in 
the  array  is  null,  then  the  parent  does  not  exist.  If  a 
different  node  is  in  the  query  index,  then  the  parent 
pointer  may  have  been  over  written  by  a  more  recent  node. 
In  this  case,  a  search  must  be  undertaken  to  see  if  the 
parent  exists  in  the  node  list.  Thus  the  array  is  like  a 
cache  of  pointers  to  recent  nodes.  Figure  2  shows  an  exam¬ 
ple  of  this  data  structure.  As  an  example,  if  a  CHECKSONST 
message  has  parent  node  100,  then  the  index  100  into  the 
array  of  pointers  gives  a  pointer  to  the  parent,  100. 

Each  node  has  a  pointer  to  its  parent.  This  pointer 
will  allow  a  trace  back  from  a  node  where  a  violation 
occurred  to  identify  the  offending  expansions  and  substitu¬ 
tions  leading  to  the  constraint  violation. 
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Fig.  2.  Structure  of  the  partial  constraint  tree. 
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Within  each  node  in  the  partial  tree  is  kept  the  PSM's 
node  number  and  a  pointer  to  a  partial  constraint  list.  The 
partial  constraint  list  contains  all  partial  constraints 
that  are  applicable  to  descendants  of  this  node. 

4.2.  Communication. 

The  major  communication  of  the  CM  is  with  the  PSMs. 
However,  Host  messages  for  certain  debugging  and  statistics 
are  also  handled. 

4.2.1.  Communication  PSM  and  CM. 

(1)  CHECKCONST: 

This  message  is  used  by  the  PSM  to  send  a  new  query, 
expansion  body  or  substitution  list  to  the  CM.  All 
CHECKCONST  messages  contain  the  PSM  new  node  number, 
parent  node  number  and  a  body  and  substitution.  Either 
the  body  or  the  substitution  list  may  be  empty.  In  the 
case  of  a  query,  the  message  contains  the  query  literal 
list  and  the  substitution  list  is  empty.  When  a 
literal  is  expanded  with  an  IDB  body,  the  IDB  body 
literal  list  and  unifying  substitution  list  are  in  the 
message.  In  the  case  of  an  EDB  expansion,  the  body  is 
empty  and  only  a  substitution  list  is  received  by  the 
CM. 

(2)  ERASE! 

The  ERASE  message  is  sent  by  a  PSM  whenever  it  ter- 
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minates  a  query,  either  successfully,  due  to  failure  or 
due  to  a  command  from  the  Host.  The  CM  responds  by 
removing  the  indicated  query  and  all  partial  constraint 
nodes  from  the  partial  tree.  If  the  PSM  has  no  other 
queries  active,  the  PSM  entry  is  also  deleted. 

(3)  VIOLATION: 

This  is  the  message  returned  to  the  PSM  when  a  con¬ 
straint  fully  subsumes  a  goal  tree  node.  The  violation 
may  be  the  result  of  a  full  subsumption  from  one 
CHECKCONST  message  or  as  a  series  of  partial  subsump¬ 
tions  occurring  in  ancestors  and  ending  in  the  current 
node.  The  information  sent  to  the  PSM  is  the  query  and 
node  number  of  the  violating  goal  node. 

4.2.2.  Communication  CM  -  Host. 

(1)  TERMINATE: 

When  this  message  is  received  from  the  Host,  the  CM 
terminates  execution. 

(2)  ASKJDUMP: 

This  command  is  used  for  debugging.  When  this  command 
is  received  by  the  CM,  it  responds  with  a  dump  of  the 
entire  partials  tree.  The  predicate  index  and  con¬ 
straint  table  can  also  be  dumped. 

(3)  DUMP: 

This  message  is  the  reply  to  the  ASK  DUMP  message. 


(4)  SETSTATISTICS: 

This  message  is  sent  by  the  Host  to  the  CM.  The 
response  is  to  start  gathering  statistics  as  specified 
in  the  message  header. 

(5)  STATISTICSOFF : 

This  message  is  used  by  the  Host  to  stop  the  collection 
of  statistics. 

(6)  GETSTATISTICS: 

This  message  is  sent  by  the  Host  to  the  CM.  The  CM 
responds  by  sending  to  the  Host  the  requested  statis¬ 
tics.  Receipt  of  this  message  without  a  previous 
SETSTATISTICS  is  an  error. 

4.3.  Operation  of  the  CM. 

4.3.1.  Working  Cycle  of  the  CM. 

The  constraint  machine  working  cycle  begins  with 
receipt  of  a  CHECKCONST  message  from  a  PSM.  The  PSM  number, 
query  number  and  parent  node  number  are  used  to  determine  if 
the  parent  node  is  in  the  partial  tree.  If  so,  the  parent's 
partial  constraints  are  retrieved.  The  substitution  list  in 
the  message  is  applied  to  the  retrieved  partial  constraints. 
All  equality  predicates  that  are  fully  instantiated  are 
evaluated  and  discarded  if  true  and  the  partial  constraint 
is  discarded  if  false.  If  by  removing  true  equslity  predi¬ 
cates,  the  partial  constraint  becomes  empty,  then  a  full 


subsumption  has  occurred  and  the  new  PSM  node  is  a  failure 
node.  A  violation  message  is  sent  to  the  PSM  and  the  new 
node  deleted. 

If  there  are  still  partial  constraints  and  the  new  PSM 
node's  body  is  not  empty,  then  a  check  is  made  for  subsump- 
t.ons  of  the  new  body  by  the  parent  node's  partial  con¬ 
straints.  If  a  further  partial  subsumption  takes  place,  the 
parent's  partial  constraint  is  replaced  by  the  new  shorter 
partial  constraint  on  the  child  node's  list.  The  subsuming 
literals  are  deleted  and  appropriate  substitutions  made. 
Unchanged  parent's  partial  constraints  are  kept  intact  to 
check  the  new  node's  descendants.  If  a  full  subsumption 
takes  place  between  the  parent's  partial  constraint  and  the 
new  body,  a  VIOLATION  message  is  sent  to  the  PSM  and  the  new 
node  deleted. 

Now,  if  the  new  node  is  still  not  a  failure  node,  the 
new  body  must  be  checked  for  subsumption  by  the  constraints 
in  the  original  database.  The  predicates  in  the  new  body 
are  looked  up  in  the  predicate  index  to  get  a  list  of  all 
constraints  that  could  be  violated.  These  constraints  are 
then  input  with  the  body  to  the  subsumption  algorithm.  If  a 
new  partial  subsumption  occurs,  the  new  node  is  created  in 
the  partials  tree  if  necessary,  and  the  new  partial  con¬ 
straints  added  to  its  list.  Any  fully  instantiated  equality 
predicates  in  a  subsumption  are  properly  handled  as  outlined 
before . 
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4.3*2.  Subsumption  Algorithm  Implementation. 

The  PSM  sends  the  entire  initial  query  literal  list  to 
the  CM.  Subsequently,  as  each  literal  in  the  query  is 
expanded  by  an  IDB  body  or  instantiated  by  an  EDB  substitu¬ 
tion,  the  substituted  body  and/or  substitution  list  is  sent 
to  the  CM.  The  remaining  literals  in  the  PSM  goal  node  are 
not  sent  again.  Since  the  full  node  is  never  sent  to  the 
CM,  except  for  the  root  query  node,  it  is  very  likely  that 
only  partial  subsumptions  will  occur  with  any  given  PSM  body 
and  substitution  list.  The  CM  keeps  track  of  all  partial 
subsumptions  that  result  from  a  body  and  constraint  (or  par¬ 
tial  constraint).  There  may  be  more  than  one  partial  con¬ 
straint  resulting  from  partial  subsumption  of  a  goal  by  a 
constraint.  For  example: 

constraint  body 

<-  P(x),  R(x) ,S(y )  P("a») ,R("b») 

gives  rise  to  two  partial  constraints: 

<-  P("b"),S(y) 

<-  R("a"),S(y) 

Successor  nodes  of  the  node  containing  the  body 
P(wa" ) ,R("b" )  must  be  checked  against  both  partial  con¬ 
straints.  Of  course,  this  makes  the  algorithm  that  much 
more  expensive. 


In  operation,  the  eubeuaption  algorithm  receives  a  con¬ 
straint  and  body  literal  list.  It  checks  for  matching 
predicates.  Any  pairs  that  match  result  in  a  call  to  the 
unification  algorithm.  If  the  literals  are  unifiable,  the 
resulting  substitution  is  applied  to  the  body  and  constraint 
after  the  subsuming  and  subsumed  literals  have  been  deleted. 
The  resulting  shortened  body  and  constraint  are  then  checked 
for  further  matching  literals  and  subsumptions  until  no 
further  subsumption  takes  place,  the  body  becomes  the  empty 
list  or  the  constraint  becomes  empty.  If  the  constraint 
becomes  empty  then  the  constraint  has  fully  subsumed  the 
goal  body  and  a  violation  results. 

Once  all  subsumptions  have  been  generated,  each  is 
evaluated.  This  process  looks  for  equality  predicates  in 
the  partial  constraint.  If  there  are  any  that  are  fully 
instantiated,  then  one  of  two  possibilities  exist.  If  true, 
then  the  literal  is  discarded.  If  by  doing  so,  the  con¬ 
straint  becomes  empty,  then  a  full  subsumption  has  occurred. 
If  the  equality  predicate  is  false,  then  this  constraint 
cannot  be  violated  and  is  discarded.  The  subsumption  algo¬ 
rithm  returns  a  list  of  partial  subsumptions  and  one  of  4 
status  flags:  okay,  partial,  full  or  no  violation  possible. 

The  unification  algorithm  is  a  slightly  modified  ver¬ 
sion  of  the  PRISM  IDB  unification  algorithm.  In  PRISM,  each 
term  is  tagged  with  a  type:  STRING,  NUMBER,  FUNCTION,  IDB 
VARIABLE,  CM  VARIABLE  or  PSM  VARIABLE.  Initially,  all 


variables  in  the  constraint  database  are  tagged  as  CM  VARI¬ 
ABLES  by  the  compiler.  The  unification  algorithm  is  biased 
to  consider  PSM  variables  as  constants  and  not  allow  substi¬ 
tutions  to  be  made  for  them.  This  has  the  effect  of  chang¬ 
ing  all  variables  in  a  body  to  distinct  constants  as 
required  in  the  Chang  and  Lee  algorithm  [Chang  1973].  How¬ 
ever,  during  the  unification  and  substitution  process,  PSM 
VARIABLES  are  substituted  for  CM  VARIABLES  in  the  con¬ 
straints.  Then,  they  are  only  unifiable  with  themselves  or 
they  can  be  changed  to  other  terms  if  they  appear  in  a  sub¬ 
stitution  list  from  the  PSM. 

4.4.  Current  Implementation  of  the  CM. 

The  current  implementation  of  the  CM  is  written  in  the 
C  language  and  the  code  appears  in  Appendix  C.  All  storage 
is  allocated  and  deallocated  from  a  heap.  It  has  been 
tested  by  reading  the  compiled  constraints  and  input  PSM 
messages  from  files.  Likewise,  the  output  violation  mes¬ 
sages  are  written  to  a  file. 

The  ASK_DUMP  message  is  only  implemented  when  running 
in  the  VAXDEBUG  mode.  An  ASK__DUMP  message  causes  a  dump  of 
the  predicate  index,  constraint  table  and  partial  constraint 
tree  to  the  debug  file.  There  is  no  DUMP  message  sent  in 
reply.  No  collection  of  statistics  has  yet  been  imple¬ 


mented 


The  code  contains  the  necessary  options  and  calls  to 
PRISM  library  routines  to  operate  with  the  PRISM  belt  simu¬ 


lator  using  the  PRISM  ipc  i/o  routines.  Since  the  VAX  has 
changed  to  Berkeley  4.2,  these  routines  are  no  longer  sup¬ 
ported.  In  order  to  compile  and  run,  this  code  has  been 
made  into  comments.  When  the  PRISM  i/o  library  is  rewrit¬ 
ten,  there  will  be  a  few  modifications  needed  as  well  as 
removing  comment  delimiters  from  the  i/o  code. 

The  current  PSM  does  not  know  about  the  CM.  It  will 
have  to  be  modified  to  send  all  queries  and  IDB/EDB  expan¬ 
sions  to  the  CM.  Also,  the  PSM  will  need  to  be  able  to  han¬ 
dle  the  return  VIOLATION  messages  from  the  CM.  The  CM 


expects  to  receive  an  ERASE  message  from  the  PSM  at  the  con¬ 
clusion  of  any  query. 


5.  FUTURE  CONSIDERATIONS. 

The  CM  is  an  add  on  feature  of  the  PRISM  system.  It 
provides  a  method  to  evaluate  a  theory  that  integrity  con¬ 
straints  can  be  used  to  direct  and  limit  the  search  of  a 
logic  programming  system.  Therefore,  its  value  will  have  to 
be  determined  by  experimentation.  It  is  quite  likely  that 
the  CM's  utility  will  be  very  application  dependent.  It  is 
easy  to  generate  examples  of  both  extremes. 

In  its  present  implementation,  the  CM  can  demonstrate 
its  feasibility  as  part  of  the  VAX  PRISM  system.  Complete 
evaluation  of  the  CM  must  wait  until  the  PSM  is  modified  to 
send  and  receive  CM  messages.  The  main  criteria  for 
evaluating  the  CM  will  be: 

(1)  The  execution  time  of  the  PSM  for  queries  with  and 
without  the  CM  in  operation. 

(2)  The  number  of  nodes  generated  and  space  consumed 
by  the  PSM  for  queries  with  and  without  the  CM  in 
operation. 

Once  the  initial  modifications  are  made  and  if  the  initial 
test  are  favorable,  there  are  some  reasonable  modifications 
to  be  made  to  the  whole  PRISM  system  to  take  advantage  of 
the  CM. 

5.1.  When  to  Use  the  CM. 


The  CM  should  be  an  optional  feature  to  the  PSMs.  That 


Is,  the  decision  whether  to  use  the  CM  or  not  must  be  made 
at  load  time  or  later.  If  there  is  no  database  of  con¬ 
straints,  then  no  CHECKCONST  messages  should  be  sent  to  the 
CM.  Carrying  this  argument  one  step  further,  suppose  a 
database  of  constraints  exists,  but  an  entire  query's  goal 
tree  contains  only  predicates  that  are  not  in  the  constraint 
database.  Again,  sending  CHECKCONST  messages  is  of  no 
value . 


For  the  preceding  reasons,  a  reasonable  modification  to 
PRISM  would  be  to  tag  predicates  and  IDB  bodies  as  to 
whether  they  contain  predicates  that  exist  in  the  CM  data¬ 
base.  This  would  necessitate  a  major  modification  of  the 
current  database  compilers  used  on  the  VAX.  The  CMC  should 
not  run  until  the  IDB  and  EDB  compilers  have  defined  the 
predicates  in  the  database.  But  then  the  IDB  and  EDB  cannot 
tag  their  bodies  and  predicates  with  the  "contained  in  CM" 
tag.  Therefore,  the  compilation  could  be  changed  into  a  two 
pass  operation  or  all  compilers  could  be  combined  into  one. 

Assuming  tagged  predicates  and  bodies,  there  is  a 
further  enhancement  that  could  be  made.  Suppose  there  has 
been  no  partial  subsumptions  in  any  ancestor  node  in  a  PSM 
goal  tree.  Further,  the  selected  expansion  involves  only 
predicates  not  contained  in  the  constraint  database.  Again 
the  CHECKCONST  message  is  of  no  value  and  could  be  avoided. 
To  do  this  would  require  a  tag  on  PSM  goal  tree  nodes  to 


indicate  whether  a  partial  subsumption  has  taken  place  In  an 
ancestor  node.  In  order  for  the  PSM  to  be  able  to  correctly 
maintain  these  tags,  the  CM  would  have  to  send  a  "partial 
subsumption"  message  to  the  PSM  whenever  one  occurred.  The 
tag  would  be  propagated  from  that  node  down  and  each  expan¬ 
sion  sent  to  the  CM.  Even  if  the  expansion  involved  only 
predicates  not  contained  in  the  constraints,  the  substitu¬ 
tion  list  could  cause  a  further  subsumption  to  occur. 

5.2.  Adding  Constraints  to  PSM  Modes. 

The  current  implementation  of  the  CM  compiler  generates 
equality  predicates  for  all  constants  in  the  constraint 
database.  The  equality  predicates  are  placed  at  the  end  of 
the  constraint  literal  list.  During  the  subsumption  algo¬ 
rithm,  as  constraint-literals  subsume  body-literals,  the 
constraint  shrinks.  When  only  equality  predicates  are  left, 
all  that  remains  is  to  wait  until  they  are  fully  instan¬ 
tiated  and  attempt  evaluation.  Both  the  CM  and  PSM  are 
capable  of  evaluating  equality  predicates  so  why  not  send 
the  list  to  the  PSM.  First,  the  equality  predicates  would 
be  converted  into  inequality  predicates.  Then  the  PSM  would 
add  these  constraints  to  its  goal  tree  node.  From  then  on, 
the  PSM  could  determine  if  the  constraint  were  violated. 
For  example,  the  constraints 
<-  P ( "John"  ) 
compiled  into 
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<-  P<xO)  ,  EQ(xO," John"  ) 


would  partially  subsume  the  query 
<-  P(x) 


leaving 


EQ(xO," John") 

Converting  this  to 

NE  (xO," John" ) 

and  appending  this  to  a  PSM  node  would  cause  a  failure  if 
the  substitution  of  {"John"/xO}  is  made. 

Implementation  of  this  feature  would  require  the  neces¬ 
sary  PSM  and  CM  messages  and  minor  modifications  to  both 
machines . 

5.3.  When  a  PSM  Creates  a  Child  PSM. 

There  is  a  PRISM  system  problem  that  must  be  solved  in 
order  for  the  CM  to  become  an  integral  part  of  PRISM.  That 
is,  what  should  be  the  relationship  between  the  PSMs  and 
CMs.  Should  it  be  one-to-one  or  one  CM  for  each  PSM  query? 
Then  whatever  approach  is  taken,  there  is  the  problem  of 
what  to  do  when  a  PSM  sends  a  subgoal  to  another  PSM.  In 
this  case,  the  new  PSM  could  either  send  to  the  parent  PSM's 
CM.  A  more  reasonable  alternative  would  be  for  the  child 
PSM's  CM  to  get  a  copy  of  any  partial  constraints  that  apply 
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to  the  new  root  goal  node  from  the  parent  PSM's  CM.  Solu¬ 
tion  to  this  problem  is  an  entire  PRISM  system  problem  and 
need  not  be  addressed  unless  the  CM  seems  a  useful  addition 
on  a  permanent  basis. 


6.  SUMMARY 


A  Constraint  Machine  and  associated  compiler  have  been 
implemented  in  C  for  the  PRISM  VAX  simulator  system.  The  CM 
is  operational  and  capable  of  extensive  testing  to  determine 
its  utility  in  a  logic  programming  system.  The  CM  uses  a 
database  of  constraints  to  identify  failure  nodes  in  a  PSMs 
goal  tree.  It  is  hoped  that  this  system  can  improve  the 
execution  of  logic  programs  in  the  PRISM  system.  At  least, 
it  will  be  able  to  test  the  theory  that  constraints  can  be 
used  successfully  in  this  manner. 


Appendix  A  -  Constraint  File  Grammar 

This  grammar  describes  the  user  supplied  database  of 
integrity  constraints. 

<file>  Constraint  list> 

Constraint  list>  j:=  <constraint>  <eonstraint  list>  I  E 

<constraint>  :j=  <-  Cliteral  list>  . 

<literal  list>  <predicate  literal>  I 

<predieate  literal>  <literal  list> 

<predicate  literal>  sss  <predieate  name>  (<argument  list>)  | 

<predicate  name>  (  ) 

<predicate  name>  :s=  <identifier> 

<argument  list>  ::=  <argument>  I  <argument>  ,  <argument  list> 

<argument>  ::=  <variable>  I  <eonstant>  I  <function> 

<variable>  s:s  <identifier> 

<constant>  : : =  <number>  I  <string> 

<function>  is:  <function  name>  (<arguraent  list>)  I 
<functlon  name>() 

<function  name>  ::  =  <identifier> 

<string>  ::=  Couble  quote>  <char  list>  <double  quote> 


APPENDIX  B 


Appendix  B  contains  the  C  code  source  listing  of  the 
Taco  grammar  and  routines  that  comprise  the  Constraint 
Machine  compiler. 


/*  File  cmc.h:  This  file  contains  the  global  data  structure 


types  used  in  the  Constraint  Machine  Compiler  */ 

/*  #  include  "prism. h"  removed  to  get  rid  of  ipc  stuff  •/ 

#  include  "tempprism.h" 

/• . •/ 


typedef  enum 

{ 

UNKNOWN  TAGJTYPE, 
PRED  NAME, 

func”name 

} 

TAGJTYPE? 


/* - */ 

/•  String  table  */ 

/• . V 


typedef  struct  string_item 

{ 

STRING_DESCRIPTOR 
unsigned  int 
struct  string_item 

} 

STRING  JTABLE_ITEM; 

/* - - - . 

/•  Constraint  list 

/* . 

typedef  int  CONSTRAINT_NAME } 

typedef  struct  constraint_list 

{ 

LITERAL  »Literal_List; 

struct  constraint  list  *Next  Constraint; 

} 

C0NSTRAINT_LIST ; 


•/ 

V 

•/ 


String; 

Offset ; 
»Next_String; 


/•  Predicate  index  list 


/• 


typedef  struct  contained  in  list 
{  “  ' 

CONSTRAINT_NAME 
struct  contained  in  list 
}  “  “ 

CONTAIN ING_CONSTRAINTS ; 


Constraint_Id} 
•Next_Constraint } 


typedef  struct  predicate  name  list 

{ 

LITERAL_NAME 

struct  predicate  name  list 
CONTAINING  CONSTRAINTS 


Name ; 

•Next_Predicate ; 
•Possible  Constraint 


} 


/*  File  cffl.c:  This  file  contains  the  main  routine  for 
the  Constraint  Machine  Compiler 

♦include  "eme.h" 

main(argc,argv) 
int  argc; 

char  *argv[]j 

{ 

Init_Debug( ) ; 

Init_Heap( ) ; 

Init_Variable_Table ( ) ; 

Get_Options(argc,argv) ; 
yyparse( ) ; 


/*  File  grammar. y:  Containts  the  Taco  grammar  for  the 
Constraint  Machine  compiler.  The  length  of  strings 
limited  to  20  characters  because  of  the  limitations 
of  the  PRISM  library  routines  in  variable. c. 

They  should  be  changed  to  allow  variable 

names  to  be  up  to  200  characters  long  like  strings  •  / 

%{ 

♦include  "cmc.h" 

t) 

tl 


extern 

FILE 

•debugf ; 

extern 

int 

Line  Number; 

extern 

LITERAL 

•Alloc  LITERALO; 

extern 

TERM 

•Alloc~TERM(); 

extern 

char 

•A11oc_CHAR ( ) ; 

extern 

TAG  TABLE 

Tag_File_Table[  ] ; 

extern 

int 

Update_Tag_Table( ) ; 

extern 

STRING  TABLE  ITEM 

•String_Table; 

extern 

FILE 

•Tag_File; 

extern 

BOOLEAN 

All_Predicates_Def ined; 

extern 

LITERAL 

•Equals_List; 

extern 

itoa( ) ; 

/• 


int 

Tag  Entry  Index; 

char 

Pred__NameTMAX_IDENTIFIER_LENGTH 

LITERAL 

•temp_lit; 

TERM 

•temp_term; 

char 

dummy_variable_name[ 200] ; 

*> 

f union 

{ 

int 
char 
BOOLEAN 
LITERAL 

CM_STRING_DESCRIPTOR 
TERM 

TAG  TABLE 

} 

ftoken  <stval  int> 

NUMBER  DEFAULT  LR  RANDOM 
ILLEGAL_SYMBOL  ARROW 
{token  <stval  chptr> 

ID 

{token  <stval  string> 

STRING_T 

{type  <stval_term> 

arg  arg.list  arg . list .with . parens  func.name 
{type  <stval  literal> 
literal  literal. list 


atval_int ; 
*stval_chptr ; 
stval_bool ; 
•stval_literal ; 
stval_string; 
•stvaT_term; 
stval_tag ; 


fstart  file 


file  :  constraint . list 

{ 

Write  CM  File(); 

}; 


constraint . list  :  constraint  constraint . list 

I  constraint; 

constraint  t  ARROW  literal. list 

{ 

if  (All  Predicates  Defined)  then 

{ 

Add_Literal_To_Literal_List(Equals_List  ,&$2) ; 
Insert  Constraint  Into  List($2); 

}  “  “ 

Equals_List  s  NULL; 

Init_VariablejTable( ) ; 

All  Predicates  Defined  s  TROE; 

}; 

literal. list  s  literal  literal. list 

( 


$1->Next 

Literal  s  *3 

$$  =  $1t 

} 

1  literal 

{ 

$$  =  $i ; 

>; 


literal  j  identifier  arg. list. with. parens 

{ 

$$  2  Alloe_LITERAL(); 

$$->  Next_Literal  =  NULL; 

$$->Arg_List  s  $2; 

Tag_Entry  Index  =  Flnd_Procedure  Name(Pred  Name, 

Tag_File_Table,UNDEFINED_TAG) ; 
if  (Tag  Entry  Index  =  =  - 1 ) 

{ 

f printf (stderr, 

"Line  Jdi  Undefined  Literal  %an ,Line_Number 

Pred_Name ) ; 

f printf (stderr constraint  discardedO), 

All  Predicates  Defined  s  FALSE; 


$$->Name  = 

Tag_File_Table[Tag_Entry_Index] .  Eneoded_Naae; 
Add_To_Predieate_List ( $$->Naae) ; 

$$->Location  =  ” 

Tag_File_Table[Tag_Entry_Index] .Location; 
I  error  ')' 

fprintf (debugf , "error  in  literalO); 


identifier  s  ID 

{ 

strcpy(Pred_Name,$1 ); 
)5 


arg. list. with. parens 


’ ( '  arg .list  ' ) 


$$  =  $2; 


$$  =  NULL; 


arg. list 

{ 


('  ') 


arg  arg. list 


$1 ->Next_Term  =  $3; 
$$  =  $i; 


$$  =  $i; 


I  arg 


s  STRING  T 


$$  a  Alloc  TERMO; 

$$->Type  a"cM_VARIABLE; 

Get  String  Value  Given_0f f set(dummy_variable_name  + 

1,$l70ffset) 

dummy_variable_naoe[ 0 ]  s 
$$->Value. Variable. Name  =  ” 

Assign_Variable__Number  (dummy_variable_name) ; 
$$->Value .Variable . Answer_Variable  =  FALSE; 
$$->Next_Term  =  NULL; 

/•  now  create  a  EQ  literal  •/ 
temp  lit  a  Alloc  LITERALO; 
temp"lit->Next_Llteral  =  NULL; 

Tag_Entry_Index  a  Find_Proeedure_Naoe("EQ" , 

“  "  Tag_File_Table ) ; 

temp_lit->Naae  = 

Tag_File_Table[Tag_Entry_Index3 . Encoded_Naae 


temp_lit-> Location  s  BUILT_IN; 
temp_term  =  Alloc_TERM(  ) } 
temp_lit->Arg_List  a  temp_term; 
teop”term->Type  =  CM_VARIABLE; 
temp_term-> Value . Variable . Name  = 

$$->Value. Variable. Name; 

temp_term-> Value . Variable . Answer_Variable  =  FALSE; 
temp“term->Next_Term  =  Alloe_TERM( ) ; 
temp_term  =  temp_term->Next_Term; 
temp_term->Type  ="  CM_STRING; 
temp”term->Value.CM_String  =  $1; 
temp_term->Next_Term  a  NULL; 

Add_Literal_To_Literal_List ( temp_lit ,&Equals_List) ; 

I  ID 

$$  =  Alloc  TERMO; 

$$->Type  a~CM_VARIABLE; 

$$->Value . Variable . Name  =  Assign_Variable_Number ( $  1 ) 
$$->Value. Variable. Answer_Variable  =  FALSE; 
$$->Next_Term  =  NULL; 

I  NUMBER 

$$  a  Alloc_TERM(); 

$$->Type  =  CM_VARIABLE; 
itoa($1 ,dummy“variable_name  ♦  1); 
dummy_variable_nameCO]  a 
$$->Value. Variable. Name  = 

Aasign_Variable_Number (dummy_variable_name ) ; 
$$->Value. Variable. Answer_Variable  a  FALSE; 
$$->Next_Term  =  NULL; 

/•  now  create  a  EQ  literal  */ 
temp_lit  =  Alloc_LITERAL( ); 
temp_lit->Next__Literal  =  NULL; 

Tag_Ent ry_Index  = 

Flnd_Proeedure_Name ( "EQ" , Tag_File_Table) 
temp_lit->Name  =~ 

Tag_File_Table[Tag_Entry_Index] . Encoded_Name 
temp_lit->Location  =  BUILT_IN; 
temp”term  =  Alloe_TERM( ) ;  ” 
temp_lit->Arg__List  =  teop_term; 
temp”term->Type  =  CM_VARIABLE; 
temp_term->Value. Variable. Name  a 

$$-> Value .Variable .Name; 

temp_term->Value . Variable . Answer_Variable  a  FALSE; 
temp_term->Next_Term  a  Alloc_TERM ( ) ; 
temp_term  a  temp_term->Next_Term ; 
temp”term->Type  "=  INTEGER; 
temp~term->Value . Integer .Value  a  $1; 
temp_term->Next_Tero  a  NULL; 

Add_Literal_To  Literal_List(temp_lit,AEquals_List) ; 


f  unc 


** 

/• 


\.  *•„. 


I  func.name  '('  arg.list  ')' 

$1->Value. Function. First_Arg  =  (int  •)  $3; 
$1->Next_Term  s  NULL ; 

$$  =  $1; 


name  :  ID 

$$  =  Alloc_TERM( ) ; 

$$->Type  =  FUNCTION; 

Tag_Entry  Index  *  Find_Proeedure_Name($1 , 

Tag_Fi leviable, FUNCTION) 
if  (Tag  Entry  Index  ==  - 1 )  “ 

{ 

f printf (stderr,"Line  Jd:  Unknown  Function  %s0, 

Line  Number , $1 ) ; 

} 

$$->Value .Function. Name  = 

Tag__File_Table[Tag_Entry  Index]  . Encoded  Name 


•/ 
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/*  File  globals.c:  This  file  contains  all  global  variables 
used  by  more  than  one  file  in  the  Constraint  Machine 


compiler 


#lnclude  "crnc.b" 


CONSTRAINT  NAME 


Line__Number  =  1, 
String_Table_Size  s  0, 
Number~Predieates  =  0; 
Constraint_Nuaber  =  1 ; 


TAG  TABLE 


Tag_FileJTable[MAX_PREDICATES]; 


FILE 


•Axiom_File  =  stdin, 

•debug?  s  stderr, 

•CM_File, 

•Tag_File , 
*EDB_Tag_File; 


STRING_TABLE_ITEM  "String  JTable ; 


PREDICATE  LIST 


Predieate_Table  =  {0,  NOLL,  NOLL}; 


CONSTRAINT  LIST 


•Constraint_Table  s  NOLL; 


BOOLEAN 

BOOLEAN 

BOOLEAN 

LITERAL 


Syntax_Only  s  FALSE; 
Output~Listing  =  FALSE; 
All_Predicates__Def  ined  =  TROE; 
•Equals^List  s  NOLL; 


K  „ 

.  •  .  -  .  i 


/«  File  actions. cs  This  file  contains  the  parser  actions 
for  the  Constraint  Machine  Compiler  */ 

#if def  CMCDEBUG 
♦define  ACTIONSDEBUG 
#endif 


♦include  "cme.h" 


extern 

extern 

extern 

extern 

extern 

extern 

extern 

extern 

extern 

extern 

extern 


FILE 

FILE 

int 

int 

PREDICATE_LIST 

CONSTRAINT_LIST 

int 


Print_LITERAL_List( ) ; 
•debugf ; 

»CM_File; 

Number_Of_Arguments ( ) ; 
Number~Predicates ; 
Predieate_Table; 

•Const rain t_Table; 

Cons t rain t_N umber; 


CONTAINING_CONSTRAINTS 

•Alloc_CONT AIMING  COMSTRAINTS ( ) ; 
PREDICATE_LIST  •Alloc_PREDICATE_LIST( ) ; 

CONSTRAINT  LIST  •Alloc_CONSTRAINT  LISTO; 


/• 


•/ 


static  PREDICATE_LIST  •insert_new_predicate(predicate , 

~  "  “  front, 

back) 

LITERAL_NAME  predicate; 

PREDICATE_LIST  «front; 

PREDICATE_LIST  *back; 

/•  link  node  in  as  successor  of  back. 

New  nodes  next  pointer  set  to  front. 

increment  count  of  predicates  •/ 


{ 

♦ 


if def  ACTIONSDEBUG 


fprintf (debugf , "Entering  insert  new  predicateO); 
♦  endif 

baek->Next_Predicate  =  Alloc_PREDICATE_LIST( ) ; 
back->Next~Predicate->Next_Predicate  s  front; 
back->Next~Predicate->Name  =  predicate; 
back->Next~Predicate->Possible_Constraint  =  NULL; 
Number  Predicates**; 
returnTback->Next  Predicate); 

} 

/• . . . 


•/ 


static  insert_constralnt_in_predicate_list (predicate_list ) 
PREDICATE_LIST  •predicate”list ; 

/*  predicate  list  points  to  a  node  in  the  index 
ito  which  to  add  the  current  constraint  •  / 


i. . 


{ 
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CONTAINING  CONSTRAINTS 


•temp; 


# 

# 


} 

/• 


ifdef  ACTIONSDEBUG 
fprintf (debugf , 

"Enter  insert  constraint  in  predicate  listo); 

endif 

if  (predicate  list->Possible  Constraint  =s  NOLL)  then 

{ 

predicate  list->Possible  Constraint  s 

Alloc_CONTAINING_CONSTRAINTS( ); 
pr edi cat e_l is t- > Pos s i bl e_Cons t r aint-> Const raint_Id= 

Cons traint_N umber; 

pr edi ca t e_l i s t-> Possible  Constraint->Next_Constraint 

=  NOLL; 

return; 

} 


else 


{ 


temp  =  predicate  list->Possible  Constraint; 

} 

while  ( (temp->Next_Constraint  !=  NULL)  && 

(temp->Constraint_Id  Is  Constraint_Number ) ) 
temp  s  temp->Next__Constraint;  ” 

if  (temp->Constraint_Id  s=  Constraint_Number )  return; 
if  (temp->Next_Constraint  ss  NULL)  then 
{ 


} 


temp->Next  Constraint  s 

Alloc_CONTAINING_CONSTRAINTS( ) ; 
temp->Next_Constraintr>Next_Constraint  s  NULL; 
temp->Next~Constraint->ConsTraint_Id  s 

Constraint_N umber; 


•/ 


Add_To_Predicate  List( predicate) 

LI?ERAL_NAME"  predicate; 


PREDICATE  LIST  »temp; 

PREDICATE-LIST  *f ront ; 

PREDICATE_LIST  •back; 


#  ifdef  ACTIONSDEBUG 

fprintf (debugf , "Enter  add  to  predicate  list  0); 

#  endif 

front  s  APredicate  Table; 
back  s  NULL; 
temp  s  NULL; 

while  ( (f ront->Name  <  predicate)  && 

(front->Next  Predicate  Is  NULL)) 

{ 
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back  =  front; 

front  =  front->Next  Predicate; 

} 

if  (front->Naae  =  =  predicate)  then 
temp  =  front; 

else  if  ( (f ront->Name  <  predicate)  && 

(f ront->Next_Predieate  ==  NULL))  then 
temp  s  insert_new_predicate(predicate,NULL, 

“  backsfront) 

else 

temp  =  insert_new_predieate(predieate , front , back ) ; 
insert  constraint  in_predicate  list(temp); 


Insert_Constraint_Into  List ( literal_list ) 

LITERAL  ~  “  •literal_list; 

/*  hook  new  list  of  literals  (a  constraint)  to  list  of  all 
constraints.  Increment  global  count  of  constraints  */ 


{ 

CONSTRAINT  LIST 


•temp; 


# 

# 


# 

# 


# 


ifdef  ACTIONSDEBUG 
fprintf (debugf , 

"Enter  Insert  Constraint  Into  ListO); 

endif 

temp  =  Constraint^Table; 

Constraint_Number++; 
if  (temp  =  =  NULL)  then 
{ 

ifdef  ACTIONSDEBUG 
fprintf (debugf , 

"Constraint_Table  NULL,  Alloc  ingO); 

endif 

Constraint_Table  =  Alloc_CONSTRAINT_LIST( ) ; 
Constraint_Table->Next_Constraint  =  NULL; 
Constraint  Table->Literal  List  s  literal  list; 

) 

else 

{ 

while  ( temp->Next__Cons traint  !r  NULL) 
temp  =  temp->Next_Cons traint ; 
temp->Next_Cons traint  a  Alloc_CONSTRAINT_LIST( ) ; 
temp->Next_Constraint->Next_Constraint  a  NULL; 
temp->Next~Constraint->Literal  List  a  literal  list; 
} 


ifdef  ACTIONSDEBUG 

Print_LITERAL_List(literal_list) ; 
fprintf (debugf , 

"Exit  Insert  Constraint 


Into  ListO)* 


#  endif 
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/*  File  alloc. et  This  file  contains  the  storage  allocation 
routines  used  in  the  Constraint  Machine  Compiler  */ 

#if def  CMCDEBDG 

♦  define  ALLOCDEBUG 
#endif 

♦  include  "coc.h" 

extern  FILE  •debugf; 

extern  char  »alloc_bloek( ) ; 


♦define  STRING_TABLE_ITEM_SIZE 

( (sizeof (STRINGJTABLE_ITEM)  + 

~  sizeof ( int )- 1 ) /sizeof (int ) ) 

♦define  COMSTRAINT_LIST_SIZE 

((sizeof  (CONSTRAINT__LIST)  ♦ 

sizeof (int)- 1) /sizeof (int) ) 

♦define  PREDICATE_LIST  SIZE 

((sizeof (PREDICATE_LIST)  + 

sizeof (int)- 1 ) /sizeof (int) ) 

♦define  CONTAINING_CONSTRAINTS  SIZE 

( (sizeof (CONTAINING_CONSTRAINTS)  + 

sizeof(int)-1)/sizeof(int)) 

/* . * 

char  *Local_Alloc(size) 
unsigned  int  size; 

{ 

char  #ptr; 

ptr  =  alloe_block( Asize ) ; 
return(ptr ) ; 

1 


Local_Dealloc (ptr, size) 
char  *ptr; 

unsigned  int  size; 

{ 

dealloc  block (ptr , size  ) ; 

} 


CONSTRAINT  LIST  «Alloc_CONSTRAINT  LIST() 

{ 

return( (CONSTRAINT  LIST  •) 

Local  Alloc (CONSTRAINT_LIST_SIZE) ) 

} 

/• - 

PREDICATE  LIST  «Alloc_PREDICATE_LIST( ) 

{ 

return( (PREDICATE  LIST  *) 

Local  Alloc (PREDICATE  LIST  SIZE)); 
}  “ 

/• - - - - - 

CONTAINING_CONSTRAINTS  *Alloc  CONTAINING_CONSTRAINTS ( ) 

{ 

return( (CONTAINING_CONSTRAINTS  •) 

Local  Alloc (CONTAINING  CONSTRAINTS  SIZE)); 


l 


/*  File  cmclib.c:  This  file  contains  the  common  routines 
for  the  Constraint  Machine  Compiler.  These  routines 
are  general  and  should  be  added  to  the  PRISM  library  */ 

#if def  CMCDEBUG 
#  undef  CMCLIBDEBUG 
fendif 


♦include  "cmc.h" 

extern  FILE 

#if def  CMCLIBDEBUG 

extern 

#endif 

/• - 


•debugf ; 

Print_LITERAL_List( ) ; 


•  •/ 


Add_LiteraljTo_Literal_List(  literal,  literalJList) 

/*  adds  literal  (or  a  literal  list)  to  the  end 

of  the  first  literal  list  •  / 


LITERAL 


{ 

# 


•literal , 
••literal_list; 

•temp; 


LITERAL 

if def  CMCLIBDEBUG 

fprintf (debugf , " Adding_Literal_To_Literal_ListO) ; 
Print_LITERAL_List(«literal_list) ; 
fprintf (debugf now  the  literalO); 
Print_LITERAL_List( literal ) ; 
fprintf (debugf ,"0) ; 
endif 

if  (•literal  list  ==  NULL)  then 

{ 

•literal  list  =  literal; 

} 

else 

{ 

temp  =  *literal_list; 
while(temp->Next  Literal  Is  NULL) 

{ 

temp  s  temp->Next  Literal; 

} 

temp->Next  Literal  =  literal; 

} 


} 

/•. 


.•/ 


reverse(string) 

char 

{ 

int 


stringC ] ; 

c»  i,  J; 


,  S'  V  %*  s" 


*•. 

■ 


’„i| 

m  1 


,  ;  ,  •  .] 


.‘..'•.■  I 


*  *-*  S 


L  •  .  * 

,t*  »%* 
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if def  CMCLIBDEBDG 

fprintf (debugf Reversing  stringO); 
endif 

for  (i  s  0,  j  s  strlen(string)  -1;  i  <  i++,  J--) 


e  =  string[i]; 
string[i]  =  stringCj]; 
stringCj]  =  c; 


itoa(n , array) 

int  n; 

char  arrayC]; 

{ 

int  i,  sign; 

#  if def  CMCLIBDEBDG 

fprintf (debugf Converting  integer  to  ASCIIO) 

#  endif 

if  ((sign  a  n)  <  0)  then 
n  a  -n ; 
i  =  0; 
do  { 

arrayCi++]  a  n  %  10  ♦  'O'; 

}  while  ((n  /=  10)  >  0); 
if  (sign  <  0) 

array[i++]  a 
array[i]  a  '  '; 
reverse(array ) ; 


/•  Pile  output. c:  This  file  contains  the  routines  that 
write  the  predicate  index,  string  table,  and  the 
constraint  list  to  the  output  file.  The  output 
file  is  used  by  the  CM  to  create  the  database 
of  constraints  and  the  predicate  index 

#if def  CMCDEBUG 

#  undef  OUTPOTDEBUG 

#  undef  LOWLEVEL 

#endif 


#  include  "cmc.h" 


extern 

extern 

extern 


LITERAL 


STRING  TABLE_ITEM 
extern  PREDICATE  LIST 
extern  CONS TRAINT_L 1ST 
int 
int 
int 
FILE 
FILE 


extern 
extern 
extern 
extern 
extern 
/• - 


•Convert  Literal_List( ) ; 
Print_LITERAL_List( ) ; 
•String_Table; 
Predicate_Table; 

•Cons  train t_Table; 

N um be r_Predi cates ; 
Constraint_N umber; 

String  TabXe_Size; 
•CMJFiXe; 

•debugf; 


Write_Int(out_integer ,f ile) 

/•  write  out  2  byte  integer  to  indicated  file  •/ 
int  out_integer; 

FILE  "file; 


{ 


int 


temp; 


} 

/»■ 


if def  OUTPOTDEBUG 

fprintf (debugf , "Entering  Write  Into); 
endif 

temp  s  High_Byte (out_integer ) ; 
fwrite(4temp, 1 , 1 ,f ile) ; 
temp  =  Low_Byte (out_integer ) ; 
fwrite(4temp, 1 , 1 , f iTe) ; 


static  write  string  table(string_table) 

STRING_TABLE_ITEM  *string_table; 


{ 


int 


temp; 


temp  =  High_Byte(String__Table_Size ) ; 
fwrite(4temp,  1 , 1  ,CM__File) ;  ” 

temp  =  Low_Byte(String_Table_Size) ; 
fwrite(4temp, 1 , 1 ,CM_File);  - 
while  (string  table~!s  NULL) 


{ 


fwri te(string_table-> String. Value ,sizeof( char ) , 

s tring__table-> String. Length, CM_File ) ; 
string  table  =  string  table->Next  String;  ~ 

}  ~ 

} 

/*--- . - . - . . . •/ 

static  write  one_cons traint ( constraint ) 

CONSTRAINT_LIST  •constraint; 

/•  write  out  entire  constraint,  length  ,eaeh  literal  •/ 

{ 

LITERAL 
int 
int 
char 
char 

#  if def  OUTPUTDEBUG 

fprintf (debugf ,"  Enter  write  one  constraintO) ; 

#  endif 
length  +=  2; 

literal  s  constraint->Literal_List; 

#  ifdef  LOWLEVEL 

fprintf (debugf , 

"Printing  literal  list  of  constraintO); 
Print_LITERAL_List( literal ) ; 

#  endif 

length  +s  Create_Literal_List( literal , 

&(output  buf fer[length]) , TRUE, Anum_preds ) ; 

#  ifdef  OUTPUTDEBUG 

fprintf (debugf , "body  length  being  written  =  %d0, 

length-2) ; 

#  endif 

output_buf f er[0]  s  High_Byte(length  -  2); 
output  bufferCl]  s  Low_Byte(length  -  2); 
fwriteToutput  buf f er , sizeof (char) , length, CM  File); 

#  ifdef  LOWLEVEL 

output_buf  f  er_ptr  =  output__buf  f  er ; 
output_buf f er_ptr  +s  2;  /•  to  skip  length  •/ 

literal  =  Convert_Literal_List( Alength, 

&output_buffer__ptr, FALSE) ; 
fprintf (debugf ,  ~ 

"Printing  Converted  literal  constraint  listO); 
Print__LITERAL_List(  literal); 

#  endif  *” 

} 


•literal; 
length  s  0; 
num  preds  =  0; 

output_buffer[LOCAL_BUFFER_SIZE] 
•output_buf  f  er_ptr ;  ”* 


/*  writ®  out  to  CM_File  one  predicate  name,  number  of 

constraints  with  this  predicate  and  all  constraint  ids  •/ 

{ 

CONTAINING_CONSTRAINTS  »constraint__list; 

int  eonstraint_eount  a  0; 

int  i; 

#  ifdef  OUTPUTDEBUG 

fprintf (debugf , "Entering  write  one  index  entryO); 

fprintf ( debugf , "Predicate  index  name  =  fdO, 

predicate_index->Name ) ; 

#  endif 

constraint_list  =  predicate_index->Possible_Constraint ; 
while  (constraint  list  1=  NULL) 

{ 

constraint_count++ ; 

eonstraint_list  a  constraint  list->Next  Constraint; 

} 

#  ifdef  OUTPUTDEBUG 

fprintf (debugf , 

"Number  of  constraints,  this  index  s  JtdO, 

constraint_count ) ; 

#  endif 

Write_Int(predicate_index->Name,CM  File) ; 

Write'lnt (constraint_count ,CM_File7; 

constraint^list  a  predlcate_index->Possible_Constraint ; 
for  (i  a  0;  i  <  constraint  count;  i++) 

( 

#  ifdef  OUTPUTDEBUG 

fprintf (debugf , 

"Constraint  containing  a  JdO, 

eonstraint_list->Constraint_Id ) ; 

#  endif 

Wri te_Int ( cons traint_l is t-> Cons traint_Id ,CM_File ) ; 
constraint_list  a  constraint_list->Next_Constraint ; 

} 

} 

/* . »/ 

Write  CM  FileO 
{  "  “ 
int 

PREDICATE  LIST 
CONSTRAINT^  1ST 

#  ifdef  OUTPUTDEBUG 

fprintf (debugf , "Entering  Write  CM  FileO); 
fprintf (debugf , "Number  of  Predicates  a  jdO, 

Number_Predieates) ; 

fprintf (debugf , "Next  Constraint  number”a  %d0, 

Constraint_Number ) ; 


i; 

•predicate_index; 
•constraint ; 
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endif 

write_string_table( String_Table) ; 

Write~Int (Hum be r_P radicates , CM_File) ; 
predieate_index  7  Predieate_Table .Next__Predieate; 
for  (i  =  0;  i  <  Number  Predieatesj  i++) 

{ 

write_one_index_entry (predieate_index) ; 
predicate  index  =  predicate  lndex->Next  Predicate 
}  " 
Write__Int(Constraint_Number  -  1,CM_File); 
constraint  r  Constraint_Table; 
for  (i  =  0;  i  <  Constraint  Number  -  1;  i++) 

{ 

write_one_constraint (constraint ) ; 
constraint  =  constraint->Next  Constraint; 

} 

fclose(CM_File) ; 


/•  File  startup. c:  This  file  contains  the  routines  that  are 
use  to  process  the  command  line  arguments.  It  is  a 
routine  that  is  used  by  most  PRISM  programs.  It  was 
copied  and  modified  for  the  CM  compiler.  •/ 

#if def  CMCDEBUG 
#  undef  STARTUPDEBUG 
#endif 

♦include  "cmc.h" 


extern 

extern 

extern 

extern 

extern 

extern 

extern 

extern 


TAG_TABLE 

FILE 

FILE 

BOOLEAN 

BOOLEAN 

FILE 

FILE 

int 


Tag_Flle_Table[ ] 

•Axiom_File; 

•Tag_File; 

Syntax_Only; 

Output_Listing; 

•CM_File; 

•debugf ; 
errno; 


Get_Options (argc ,argv) 
int  argc; 

char  *argv[ ] ; 

{ 

int  i  s  1 ; 

int  j; 

BOOLEAN  OOPT  =  FALSE; 

BOOLEAN  TOPT  =  FALSE; 

#  if def  STARTUPDEBUG 

fprintf (debugf , "In  cmc,  number  of  args  5td0,argc); 
for  (i  s  0;  i  <  argc;  i++) 

{ 

fprintf  (debugf  ,"Arg  ltd:  its0,i  ,argv[i] ) ; 

} 

#  endif 
i  =  1; 

while  (i  <  argc) 

{ 

if  (argv[i ] [ 0 ]  == 

{ 

switch  (argv[i][1]) 

{ 

case  'd': 

if  ((debugf  =  fopen(argv[++i] ,"w" ) )  ==  NULL) 

{ 

fprintf (debugf , "Debug  file  'fs'  ",argv[i]) 
fprintf (debugf ," could  not  be  createdO); 
exit(-l);  /•  to  calling  program  »/ 


# 

# 


break; 
case  'i': 

if  ((Axiom  File  =  fopen(argv[++i] ,"r" ) )  ==  NOLL) 

{ 

fprintf (debugf ."Axiom  file  '% s'  ",argv[i]); 
fprintf (debugf , "could  not  be  openedO); 
exit(-l);  /•  to  calling  program  •/ 

} 

break; 
case  'l't 

Output_Listing  s  TRUE; 
break; 
case  'o': 

if  ((CM  File  =  fopen(argv[++i] ,"w" ) )  ==  NULL) 

{ 

fprintf (debugf ."CM  File  '%a'  ",argv[l]); 
fprintf (debugf ."could  not  be  createdO); 
exit(-l);  /•  to  calling  program  •/ 

} 

OOPT  s  TRUE; 
break; 


Syntax_Only 
break;- 


TRUE; 


ease  't': 


} 


if  ((Tag  File  r  fopen(argv[++i] ,"r" ) )  =s  NULL) 

( 

fprintf (debugf ."Tag  file  ' %s '  ",argv[i]); 
fprintf (debugf , "could  not  be  openedO); 
exit(-l);  /•  to  calling  program  */ 

} 

TOPT  =  TRUE; 
break; 
default  : 

fprintf (stderr , 

"cmc  -  Option  >c  not  def inedO,argv[i][ 1 ]) ; 

} 

i++; 

) 

else 

{ 

fprintf (stderr, 

"Usage  ias  eme  [-d  fl]  -i  f2  [-e  f3]  -o  f4  -t  f50); 
fprintf (stderr, "Option  missingO) ; 
exit(-1 ) ; 

} 


if def  STARTUPDEBUG 

fprintf (debugf , "OOPT  *d  TOPT  fdO , OOPT , TOPT) ; 
endif 

if  (TOPT)  then 

{ 

Read_Tag_File(Tag_File,Tag_File_Table) ; 


/•  file  strings. c:  This  file  contains  one  string  routine 
that  was  needed  by  the  compiler  that  was  not  available 
in  the  PRISM  library. 

#if def  CMCDEBUG 
#  define  STRINGDEBUG 
#endif 

♦include  "cme.h" 

extern  STRIMG_TABLE_ITEM 
extern  BOOLEAN 
extern  FILE 

extern  STRING_TABLE_ITEM 
extern  char  ” 

extern  int 


Get_String_Value_Given_Off set (array , of f set ) 

char  array[]; 

int  offset; 

{ 

STRING_TABLE_ITEM  «string_entry ; 

string  entry  s  String_Table; 
while  T(string_entry  !s  NULL)  44 

(string_entry->Of f set  !=  offset)) 

{ 

string_entry  z  string  entry->Next_String; 

} 

if  (string  entry->Of f set  ==  offset)  then 

{ 

strcpy (array, string  entry-> String. Value) ; 

} 

else 

{ 

f printf (debugf , 

"••  No  string  found  with  that  offsetO); 
arrayCO]  =  ' 

} 


*String_Table; 
Non_Null_String__Equal  ( ) ; 
•debugf ;— 

•Alloc_STRING_TABLE_ITEM( ) ; 
* Alloc_CHAR ( ) ; 
String_Table_Size ; 


APPENDIX  C 


I 


I 


Appendix  C  contains  the  C  code  source  listing  of  the 
Constraint  Machine. 


/•  File  cm. h:  This  file  contains  all  of  the  data  structures 


common  to  the  files  in  the  CM.  •/ 

/»  #  include  "prism. h"  */ 

#  include  "/f ul/prism/cmc/emc .h" 

#  define  MAX  NODE  ENTRIES  25C 

#  define  MAX_QUEUE  JSIZE  64 

/• . - . . . •/ 

/•  Predicate  index  structure  •/ 

/» . - . •/ 


typedef  struct 

{ 

LITERAL_NAME  Name; 

CONTAINING  CONSTRAINTS  «Constraint_List; 

} 

PREDICATE_ENTRY; 


/• . 

/•  Constraint  table  structure 
/* - - 


typedef  struct 

{ 

LITERAL  *Literal_List 

BOOLEAN  Checked  Flag; 

} 

CONSTRAINT_ENTRY ; 


typedef  struct  partial  list  entry 

{ 

LITERAL  »Constraint; 

struct  partial  list  entry  »Next  Partial 
}  " 

NODE_PARTIAL_LIST_ENTRY; 


typedef  struct  partial  tree  node 

{ 

CLAUSE  NAME 

NODE_PARTIAL_LIST_ENTRY 
struct  partTal__tree_node 
struct  partial”tree~node 


Node_Number ; 
•Partial ; 
•Parent; 
•Next; 


•/ 

•/ 

•/ 
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V  V*V 


PARTIAL_TREE_NODE ; 

typedef  struct  query_list_entry 

{ 

MESSAGE_ID  Query_Huaber ; 

PARTIAL_TREE_NODE  •Node_Index[MAX  NODE_ENTRIES ] 
PARTIAL_TREE_NODE  »Node_List; 

struct  query  list  entry  *Next~Query; 

}  " 

QUERY_LIST__ENTRY; 

typedef  struct  zmob  partial  list  entry 
{  “ 

ZMOB  MACHINE 
QUERY_LIST_ENTRY 
struct  zmob_partial  list  entry 

} 

ZMOB_PARTIAL_LISTJENTRY; 


Zmob; 

*Query_List; 

*Next_Zmob; 


/« - - — 

/»  structures  used  in  the  subsumption  algorithm 
/• . - . - . 

typedef  enum 

{ 

OKAY, 

FULL, 

PARTIAL, 

NO_VIOLATION  POSSIBLE 

} 

SUBSUMPTION_ANSWER ; 


typedef  struct  subsumption  node 

{ 

LITERAL 

LITERAL 

struct  subsumption_node 
struct  subsumption~node 

} 

SUBSUMPTION_NODE; 


•Constraint ; 

•Body; 

•Child; 

•Sib; 


typedef  enum 

{ 

CREATING  CHILD, 

CREATING~SIB 

} 

SUBSUMPTION_STATUS ; 

typedef  struct  subsumption  partial  list 

{ 


SUBSUMPTION  NODE 


•Answer; 


/*  File  alloc. e  contains  allocation/deallocation  routines 
for  structure  types  local  to  the  CM. 

Alloc__<type_name>  allocates  a  space  for  a  structure  of 
type  type_name. 

Similarly  for  Dealloc_<type_naoe> 

#if def  CMDEBUG 

#  undef  ALLOCDEBUG 
#endif 

#  include  "co.h,, 


#  define  CONSTRAINT_ENTRY  SIZE 

(  (sizeof (CONSTRAINT  ENTRY )  + 

(sizeofTint)-l )) /sizeof (int) ) 

#  define  PREDICATE  ENTRY_SIZE 

( (sizeof (PREDICATE_ENTRY)+ 

(sizeof(int)-1))/sizeof(int)) 

#  define  CONTAINING_CONSTRAINTS_SIZE 

(  (sizeof (CONTAINING  CONSTRAINTS )  + 

(sizeof Tint )-1 ))/sizeof(int)) 

#  define  NODE  PARTIAL  LIST_ENTRY_SIZE 

T( sizeof lNODE_PARTIAL_LIST  ENTRY)* 

( sizeof ( int )- l7)/sizeof(int)) 

#  define  PARTIAL  TREE  NODE  SIZE 

( (sizeofTPARTIAL_TREE_NODE)+ 

(sizeof(int)-l) ) /sizeof ( int ) ) 

#  define  QUERY_LIST  ENTRY_SIZE 

( (sizeof  (QUERY_LIST  ENTRY)-*- 

(sizeofTint)-1))/sizeof(int)) 

#  define  ZMOB_P ARTI AL  LIST  ENTRY  SIZE 

T(sizeofTzMOB"PARTIAL_LIST  ENTRY )+ 

(sizeof(int)-l7)/sizeof(int)) 

#  define  SUBSUMPTION_NODE_SIZE 

(  (sizeof (SUBSUMPTION_NODE)  + 

(sizeof(int)-1))/sizeof(int)) 


#  define  SUBSUMPTION_PARTIAL  LIST  SIZE 

( (sizeof (SUBSUMPTION~PARTIAL_LIST)+ 

( sizeof (Tnt )- 1))7sizeof(int)) 


extern  FILE 
extern  char 
extern 

extern  ZMOB  PARTIAL  LIST  ENTRY 


•debugf ; 

•alloc_bloek( ) ; 
Dealloe_LITERAL_List( ) 
Head  Zmob  Partial  List 


char  •Local_Alloc(size ) 
unsigned  int  size; 

{ 

char  »ptr; 

/•  if  (Using  Belt)  then 

{ 

Disable  Interrupts () ; 

} 

ptr  s  alloc_block( Asize ) ; 
/*  if  (Using_Belt)  then 
{ 

Enable  Interrupts () ; 

} 

return(ptr ) ; 


removed  due  to  4.2  •/ 


removed  due  to  4.2  */ 


/• - - - < 

PREDICATE_ENTRY  • Alloc_PREDICATE_ENTRY (n ) 
int  n; 

{ 

return( (PREDICATE  ENTRY  •) 

Loeal_Alloe(n»(PREDICATE_ENTRY_SIZE) ) ) 

} 


CONSTRAINT_ENTRY  »Alloc_CONSTRAINT_ENTRY(n) 
int  n;  ” 

{ 

return( (CONSTRAINT  ENTRY  •) 

Local  Alloc (n*( CONSTRAINT  ENTRY  SIZE))); 

} 


CONTAINING  CONSTRAINTS  »Alloc  CONTAINING  CONSTRAINTS ( ) 

{ 

return( (CONTAINING_CONSTRAINTS  •) 

Local  Alloc(CONTAINING  CONSTRAINTS  SIZE)); 
}  “ 


Dealloc  CONTAINING_CONSTRAINTS  List(liat) 

CONTAINING  CONSTRAINTS  "  •list} 

{ 

CONTAINING_CONSTRAINTS  »next} 

#  ifdef  ALLOCDEBUG 

f printf (debugf , 

"Entering  Dealloc_Containing_ConstraintsO) ; 

#  endif 

while  (list  Is  NULL) 

{ 

next  s  list->Next_Constraint ; 

Loeal_Dealloc(list,CONTAINING_CONSTRAINTS_SIZE) } 
list  =  next; 

} 

} 

/•— - 

Dealloc_>SUBSUMPTION_NODE(node  ) 

SUBSUMPTION  NODE  »node} 

{ 

#  ifdef  ALLOCDEBUG 

fprintf (debugf , 

"Enter  Dealloc_Subsumption_NodeO) } 

#  endif 

Dealloc_LITERAL_List(node->Body) } 
if  (node->Constraint  Is  NULL)  then 
{ 

Dealloc  LITERAL  List(node->Constraint ) ; 

} 

Local  Dealloc (node, SUBSUMPTION  NODE  SIZE)} 

}  “ 

/• - 

Dealloc^ Subsumption_Tree (node_ptr ) 

SUBSUMPTION  NODE  «node  ptr} 

{  " 

#  ifdef  ALLOCDEBUG 

fprintf (debugf , "Enter  Dealloc_Subsumption  TreeO)} 

#  endif 

if  (node  ptr  Is  NULL)  then 

{ 

Dealloc_Subsumption_Tree(node_ptr->Child) } 

Deal loo-Subsumption-Tree(node”’ptr-> Sib) } 
Dealloc”sUBSUMPTION-NODE(node"ptr) } 

}  “  “ 


) 


Dealloe  SUBSUMPTION  PARTIAL  LIST  List(liat) 


SUBSUMPTION  PARTIAL  LIST 


SUBSUMPTION  PARTIAL  LIST 


•list} 

•next; 


ifdef  ALLOCDEBUG 
fprintf (debugf 

, "Enter  Dealloc_Subsunption_Partial_ListO) ; 

endif 

while  (list  Is  NULL) 

{ 

next  s  list->Next; 

Loeal_Dealloc ( list  t  SUBSUMPTION_PARTIAL_LIST_SIZE) ; 
list  s  next; 

} 


Dealloe  NODE  PARTIAL  LIST  ENTRY  List(list) 


NODE  PARTIAL  LIST  ENTRY 


NODE  PARTIAL  LIST  ENTRY 


•list} 

•next} 


ifdef  ALLOCDEBUG 

fprintf (debugf , 

"Enter  Dealloc_Node_Partial_List_EntryO) } 
endif  “  ~  ” 

while  (list  Is  NULL) 

{ 

next  s  list->Next_Partial} 

Dealloc_LITERAL  List(list->Constraint) } 
Local_Dealloc (list, NODEPARTIALLISTENTRY  SIZE ) 
list  s  n 

} 


Dealloe  PARTIAL  TREE  NODE(node) 


PARTIAL_TREE_NODE  »node} 

{ 

#  ifdef  ALLOCDEBUG 

fprintf (debugf , 

"Enter  Dealloc_Partial_Tree  NodeO)} 

#  endif  “ 

if  (node->Partial  Is  NULL)  then 

{ 

Dealloe  NODE  PARTIAL  LIST  ENTRY  List(node->Partial) 


Dealloc_PARTIAL_TREE_NODE__List(node__list ) 

PARTIAL  TREE  NODE  »node  list; 

{ 

PARTIAL_TREE__NODE  »next; 

#  ifdef  ALLOCDEBDG 

f printf (debugf , 

"Enter  Dealloc_Partial_Tree_Node_ListO ) ; 

#  endif 

while  (node  list  !  =  NULL) 

{ 

next  =  node_list->Next; 
Dealloc_PARTIAL_TREE_NODE(node_list) ; 
node  list  =  next; 

} 

} 


Dealloe_QUERY__LIST— ENTRY  (query  ) 

QUERY_LIST_ENTRY  »query; 

{ 

#  ifdef  ALLOCDEBUG 

f printf (debugf , 

"Enter  Dealloc_Query_List_EntryO) ; 

#  endif 

Deal loe_P ART IAL_TREE_NODE_List( query- >Node_List) ; 
Loeal_Dealloe(query, QUERY  LIST  ENTRY_SIZE)7 

} 


Dealloe_QUERY_LIST_ENTRY_List(list) 

QUERY  LIST  ENTRY  »list; 

{ 

QUERY_LIST_ENTRY  »next; 

#  ifdef  ALLOCDEBUG 

f printf (debugf , 

"Enter  Dealloc  Query_List  Entry  ListO); 

f  endif 

while  (list  1 s  NULL) 

{ 

next  a  list->Next  Query; 
Dealloe_QUERY_LIST_ENTRY(list); 


list  =  next; 

} 

} 

/• - - 


Dealloc_ZMOB_PARTIAL_LIST_ENTRY( entry) 

ZMOB_PARTIAL_LIST_ENTRY  "entry; 

t 

#  ifdef  ALLOCDEBUG 

f printf (debugf , 

"Enter  Dealloc__Zmob_Partial_List_EntryO) ; 

#  endif 

Dealloc_QUERY  LIST  ENTRY  List(entry->Query_List) ; 
Local_Dealloc?entry,ZMOB~PARTIAL  LIST  ENTRY  SIZE) 
>  “ 

/• . . . . 

Dealloc_ZMOB_PARTIAL_LIST_ENTRY_List( ) 

/•  uses  global  headnode  •/ 

{ 

ZMOB_PARTIAL_LIST_ENTRY  "next, 

•list; 

#  ifdef  ALLOCDEBUG 

f printf (debugf , 

"Enter  Dealloc_Zmob_Partial_List_Entry_ListO) 

#  endif 

list  =  Head_Zmob_Partial  List.Next_Zmob; 
while  (list  Is  NULL) 

{ 

next  s  list->Next_Znob; 
Dealloc_ZMOB_PARTIAL_LIST_ENTRY( list)  ; 
list  s  next; 


/*  File  cm.c:  This  file  contains  the  main  routine  for  the 
CM.  It  just  loops  until  a  message  arrives  or  the 
terminate  flag  is  set.  * 


#  include  "em.h" 

extern  FILE 
extern  BOOLEAN 
extern  FILE 
extern  BOOLEAN 
extern 

extern  ZMOB  MESSAGE 


main(argc ,argv) 
int  argc; 

char  •argv[]; 


•debugf} 

UsingJBelt; 
•lnput_File} 
Terminate_Flag; 
Proeess_M7g( ) 
•flead_PRISM_>Message  ( ) } 


ZMOB_MESSAGE  •zjnsgj 

fprintf (debugf , "CM  program  starting  up.O); 
CM_Startup(arge ,argv) ; 
while  ((Terminate  Flag) 

{ 

if  (Using  Belt)  then 

{ 

pause ( ) ; 

} 

else 

{ 

z_msg  s  Read_PRISM_Message(Input_File) ; 

Process  Msg(z  msg); 

} 

> 

fprintf (debugf  f 

"CM  program,  terminate  flag  set,  normal  stopO) 


••  •»*. 


/•  File  checkconst.c:  This  file  contains  the  code  for  the 
routine  that  processes  the  CHECKCONST  message  from  the 
PSM .  * 

#if def  CMDEBUG 

#  define  CHECKCONSTDEBUG 

#  define  LOWLEVEL 
#endif 


♦include  "cm.h" 

#  if def  LOWLEVEL 
extern 

#  endif 
extern  FILE 
extern 


Dump_Partial_Tree( ) ; 
•debugf ; 


Remove_Partial_From_Nodes_Partial_List ( ) ; 

extern 

Add_Partial_Constraint_To_Node( ) ; 
extern  BOOLEAN  Find_Parent_In_Tree( ) ; 

extern  PARTIAL_TREE_NODE  •Create_New_Par tial_Tree ( ) 

extern 

Replace  Partial_By_Partial_List ( ) ; 
extern  SUBSUMPTION_ANSWER 

Evaluate_Nodes_Partial_List( ) ; 
extern  “ 

Apply  Sub_List_To_Partial_List( ) ; 
extern  PARTIAL  TREE  NODE  •Create_Child_Of_Parent ( ) ; 

extern  NODE_PARTIAL  LIST_ENTRY 

*Copy_Partial  Constraint_List( ) ; 
extern  CONTAINING_CONSTRAINTS 

•Find  All_Constraints_To_Check( ) ; 
extern  MESSAGE  •Alloc_MESSAGE ( ) ; 

extern  Output_Message ( ) ; 

extern  Clear_CheckedJFlags ( ) ; 

extern  Dealloc_MESSAGE( ) $ 

extern  “ 

Remove_Node_From_Partial_Tree( ) ; 
extern  CONSTRAINT_ENTRY  •Constraint_Table; 

extern  NODEPARTIALLIST  ENTRY  •SubsumptionC ) ; 


/• - »/ 

/•These  are  global  variables  for  all  routines  in  this  file*/ 


BOOLEAN 

BOOLEAN 

ZMOB_PARTIAL  LIST  ENTRY 
QUERY  LIST  ENTRY 
PARTIAL  TREE  NODE 

partial"tree"node 

SUBSUMPTION  ANSWER 


Parent_Found; 

New_Node_Created; 

•Zmob; 

•Query_Node} 
•Parent_Node j 
*New_Node; 
New_Node_Status; 


.*  .»  /  .* 


*  •.  *.*  \*  •  **«.•*•  *\ 


82 


static 


cheek_subsumption_old_partials_new_body (body ) 
/*  uses  global  New_Node,  New_Node_Status ,  •/ 

LITERAL  *body ; 


NODE  PARTIAL  LIST  ENTRY 


SOBSUMPTION_ANSWER 

#  ifdef  CHECKCONSTDEBUG 

f printf (debugf , 

"Enter  eheck_subsuop_old_partials_new  bodyO); 

#  endif 

one_partial  =  New_Node->Partial ; 
while  (one  partial  !=  NULL) 

{ 

new_partial  = 

Subsumption(body,one_partial-> Constraint , 

&node_status ) ; 

switch(node  status) 

{ 

case  NO_VIOLATION_POSSIBLE: 
temp  =  one_partial; 

one_partial  =  one_partial->Next_Partial ; 
Remove_Partial_From_Nodes_Partial_List ( tem 
”  New_Node); 

break; 
case  OKAY: 

one_partial  =  one_partial->Next_Partial ; 
break; 
case  FULL: 

New_Node_Status  =  FULL; 

return; 

break; 

case  PARTIAL: 

New_Node_Status  =  PARTIAL; 
temp  =  one_partial; 

one_partial  =  one_partial->Next  Partial; 
Replace_Partial_By_Partial_ListTtemp , 

*“  new_partial  ,New_Node) ; 

break;  ” 

default: 

fprintf (debugf , 

"Unknown  new  node  statusO); 


•temp, 

•new_partial , 
*one_partial ; 
node  status  =  OKAY; 


} 


static  check_f or_new_subsumptions (body, sender, query_n umber , 

new_node_num ,constraint_list) 


LITERAL 

ZMOB_MACHINE 

MESSAGE_ID 

CLAUSE_NAME 

CONTAINING  CONSTRAINTS 


•body; 
sender ; 
query_number ; 
new_node_num; 

•  const  rain  t__l  is  t; 


CONTAINING  CONSTRAINTS 
NODE_PARTIAL_LIST_ENTRY 
SOBSUMPTION_ANSWER 
BOOLEAN 


•li3t; 

*new_partial_entry; 
node_status  =  OKAY; 
already_checked  =  FALSE; 


ifdef  CHECKCONSTDEBUG 
f printf (debugf , 

"Enter  check_f or_new_subsumptionsO) ; 
if  (constraint  list  =  =  NULL)  then 
( 

f printf (debugf , 

"ERROR  constraint  list  =  NULLO); 

) 

endif 

for  (list  s  constraint__list;  list  Is  NULL; 

~  list  s  list~>Next  Constraint) 

{ 

already_cheeked  = 

Constraint_Table[list->Constraint_Id- 1 ] . Checked_Flag; 
if  ( ! already_checked)  then 
{ 

ifdef  CHECKCONSTDEBUG 

fprintf (debugf , "Call  subsumption  on  constraint  %d  0, 

list->Constraint_Id ) ; 

endif 

new_partial_entry  =  Subsumption ( body , 

Constraint^Table 

[list-Tconstraint_Id  -  1 ] . Literal_List , 
&node_status ) ; 
switch  (node  status) 

{ 

case  PARTIAL: 

New  Node_Status  s  PARTIAL; 
if  TParent  Found  I  I  New  Node  Created)  then 
{  “  _ 

Add_Partial_Constraint_To__Node  (New_Node , 

new  partial  entry); 

}  ~ 
else 
{ 

New_Node  =  Create_New_Partial_Tree(sender , 

query_number , 
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} 


new_node_num 
&Zmob , 

&Query_Node ) 

New_Node_Created  =  TROE;  ” 

Add_Partial_Constraint_To_Node (New_Node , 

new_partial_entry ) ; 


break; 
case  OKAT: 

break; 
case  PULL: 

New_Node_Status  =  FULL; 
return; 
break; 
default: 

f printf (debugf , 

"Unknown  status  in  check  for  new  subsumpO); 
break; 


/•- 


} 


Constraint_Table[list->Constraint_Id- 1 ] .  Checked_Flag  = 

TRUE 

} 

#  ifdef  CHECKCONSTDEBUG 

f printf (debugf , 

"Exit  check_f or_new_subsumptions---no  fullO); 

#  endif 
} 

/* . •/ 


static  PARTIAL_TREE_NODE  *copy_and_cheek_parent_eons traints 

(new_node_num , 
substitution) 


/*  only  called  if  parent  exists  and  global  pointers  set  •  / 


CLAUSE  NAME  new  node_num; 

SUBSTITUTION  ^substitution; 

{ 

PARTIAL_TREE_NODE  »child; 

#  ifdef  CHECKCONSTDEBUG 

fprintf (debugf , 

"Enter  copy_and_check_parent_constraintsO) ; 

#  endif  ”  ~  ~ 

child  s  Create_Child_Of_Parent  ( Parent_Node , new_node_num  , 

~  “  Query_Node) ; 

child->Partial  = 

Copy_Partial_Constraint_List( Par ent_Node-> Partial ) ; 
if  (substitution-! s  NULL)  then 
{ 


Apply_Sub_List_To_Partial_List(ehild->Partial , 

”  substitution)  5 

New  Node  Status  =  Evaluate_Nodes_Partial  List(child) 

} 

peturn(child) ; 


Checkconst (pso_msg) 
MESSAGE 


{ 


# 

# 


•psm_msg; 


ZMOB  MACHINE 

MESSAGE  ID 

LITERAL 

CLAUSE_NAME 

CLAUSE  NAME 

SUBSTITUTION 

CONTAINING_CONSTRAINTS 

MESSAGE 


sender; 

control_number ; 

•body; 
parent_num; 
new_node_num ; 

•sub_list; 

•constraint_list  a  NULL; 
•out_msg; 


ifdef  CHECKCONSTDEBUG 

f printf (debugf , "Enter  Checkconst  routineO); 
endif 

Zmob  a  NULL; 

Query_Node  a  NULL; 

Parent_Node  a  NULL; 

New_Node  a  NULL; 

New_Node_Created  a  FALSE; 

New_Node~Status  =  OKAY; 

sender  a  psm_msg->Message .Checkconst. Sender; 
body  a  psm_msg->Message .Checkconst . Idb_Data. Body; 
control_number  a 

psm_msg-> Mess age .Checkconst .Control_Number; 
parent_num  = 

psm_msg->Message .Checkcons t . Connect ion_lnfo . 

ParentTciause; 

sub_list  a  psm_msg->Message  .Checkconst.  IdbjData. Subsist 
new_node_num  =_ 

psm_msg->Message . Checkcons t .Connect ion_Inf o .Node . 

”  Clause; 

ifdef  CHECKCONSTDEBUG 
f printf (debugf , 

"Sender  a  id,  Query  a  fd,  ", sender, 

control_number ) ; 

f printf (debugf ,  ~ 

"Parent  a  id,  New  node  a  fdO, 

parent_num ,new_node_num ) 
endif  “ 

Parent_Found  a  Find_Parent_In_Tree(sender ,control_number 


parent_num , 
4Zmob,4Query  Node, 
4Parent_NodeT; 


if  (Parent_Found)  then 
{ 


} 


/*  now  apply  sub  to  old  partial  constraints  •/ 
New_Node  = 

copy_and_check__parent_constraints  (new_node_num , 
"  ~  “  sub_list); 


if  ( (Parent_Found)  44  (New  Node  Status  Is  FULL)  44 

(New  Node  Status  (7  NO  VIOLATION  POSSIBLE)  44 

(body  I s  NULL))  then 

{ 

check  subsumption  old_partials  new  body(body); 

}  ~ 


/•  now  check  original  constraints  with  new  body  •/ 
if  ((New  Node  Status  !s  FULL)  44  (body  !s  NULL))  then 
( 

constraint_list  s  Find__All_Constraints_To_Cheek(body) 
if  (constraint  list  !  =~NULL)  then  ”  ~ 

{ 

check_f  or_new__subsumpt ions  (body , sender , 

control_number , 
new_node_num , 
constraint_list) ; 

} 

} 

if  (New  Node  Status  =s  FULL)  then 

t 

out_msg  s  Alloc_MESSAGE( ) ; 
out_msg->Type  =~VI0LATI0N; 

out_msg->Message. Violation. Sender  :  sender; 
out”msg->Mes  sage  .Violation  .Fai  l_Node  .Machine  s 

”  sender; 

out_msg->Mes sage .Violation. Control_N umber  s 

control^n umber; 

out_msg->Message . Violation. Fai l_Node .Clausens 

"  new__node_num; 

Output  Message(out  msg); 
ifdef  CHECKCONSTDEBUO 
fprintf (debugf , 

"CM  sent  VIOLATION  msg,  zmob  Jtd,  query  ?d,n, 

sender , control  number); 
fprintf (debugf ,"  node  Jd0,new_node_num7; 
endif  ”  “ 

Dealloc  MESSAOE(out  msg); 

} 

if  (constraint  list  !s  NULL)  then 

( 


Clear  Checked  Flags (constraint  list); 

Dealloc  CONTAINING  CONSTHAINTS_List(eonstraint_list) 

} 

if  ((Parent  Found  ||  New  Node  Created)  && 

( (New_Node->PartIal  =7  NOLL)  II 

~  (New  Node  Status  =  =  FULL)))  then 

{ 

Remove  Node  From  Partial  Tree(New  Node, Query  Node); 

}  ~ 

ifdef  CHECKCONSTDEBUG 

fprintf (debugf , "Exiting  Checkconst. .  .0); 
ifdef  LOWLEVEL 

Dump_Partial_Tree( ) ; 
endif 
endlf 


/•  File  cmlib.c:  This  file  contains  routines  that  are  common 
to  many  procedures  in  the  CM.  This  file  should  be  added 
to  the  PRISM  library.  »/ 


#if def  CMDEBUG 

#  undef  CMLIBDEBUG 

#  undef  LOWLEVEL 
fendlf 

♦include  "cm.h" 


extern 

extern 

extern 

extern 

extern 
extern 
extern 
#if def 


FILE  •debugf; 

LITERAL  *Copy  LiteralO; 

LITERAL  •Copy*~Literal  ListO; 

NODE  PARTIAL  LIST  ENTRY 

•Alloc_NODE_PARTIAL_LIST_ENTRY(); 

~Apply  Sub  ListO; 
Dealloe_LITERAL( ) ; 
CONSTRAINT  ENTRY  ^Constraint  Table; 

LOWLEVEL 


extern 

fendlf 


Print  LITERAL  ListO; 


/* - •/ 

Clear_Cheeked_Flags (list) 

CONTAINING  CONSTRAINTS  •list; 

{ 

#  if  def  LOWLEVEL 

fprintf (debugf , "Entering  Clear  FlagsO); 

#  endif 

while  (list  la  NULL) 

{ 

Constraint  Tabletlist->Constralnt  Id- 1 ] ,Checked_Flag 

a  FALSE; 

list  a  list->Next  Constraint; 

) 

) 

/• - «/ 


Print^Partial^LlstCpartial^list) 

NODE  PARTIAL  LIST  ENTRY  »partial  list; 

{ 

f printf (debugf 

, "Printing  list  of  partial  eonstraintsO) ; 
while  (partial  list  la  NULL) 

( 

Print_ LITERAL_List( par tial_list-> Constraint ) ; 
fprintf (debugf ,"0) ; 

partial  list  a  partial  list->Next  Partial; 

}  “ 

} 
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LITERAL  •Copy_Literal_List_And_Remove_Literal (literal_list , 

”  —  literal  to  deTete) 


LITERAL  'literal  list; 

LITERAL  'literal- to  delete} 

{  ~  ' 

LITERAL  'first  literal, head  node} 

#  ifdef  CMLIBDEBDG 

fprintf (debugf , 

"Enter  Copy  Lit  list  and  remove  literalO)} 

#  endif 

head_node.Next_Literal  =  NULL} 
f irst_literal  7  Ahead  node} 
while  (literal  list  l7  NULL) 

{ 

if  (literal  list  !a  literal  to  delete)  then 
{  “  “ 

f irst_literal->Next_Literal  a 

Copy_Literal (literal_list) } 
first  literal  =  first  literal->Next  Literal; 

} 

literal  list  a  literal  list->Next  Literal; 

}  ~ 
f irst_li ter al-> Next  Literal  a  NULL; 

#  ifdef  CMLIBDEBUG 

fprintf (debugf , 

"Exit  Copy  LITERAL  list .. literal  list  is:0); 

#  ifdef  LOWLEVEL 

Print_LITERAL_List (head_node . Next_Literal ) ; 
fprintf (debugf ,"0) ; 

#  endif 

#  endif 

return(head  node. Next  Literal); 

} 

/* . •/ 


NODE_PARTIAL_LIST_ENTRY  »Copy_Partial_Cons traint_List ( 1 ist ) 
NODE_PARTIAL_LIST_ENTRY  »list} 

{ 

NODE_PARTIAL_LIST_ENTRY  headnode,  "temp; 

#  ifdef  CMLIBDEBUG 

fprintf (debugf , "In  Copy  Partial  Constraint  ListO); 

#  endif  _ 

headnode. Next_Partlal  a  NULL; 
temp  a  Aheadnode; 

while  (list  la  NULL) 


•J' 


temp->N ext ^Partial  *  Alloc_NODE_PARTIAL_LIST_ENTRY( ) ; 
temp  s  temp->Next_Partial; 
temp->Next_PartiaT  =  NULL; 
temp->Constraint  = 

Copy_Literal_List(list->Constraint ) ; 
list  =  list->Next_Partial; 

} 

#  ifdef  CMLIBDEBUG 

#  ifdef  LOWLEVEL 

Print  Partial  List(headnode.Next  Partial); 

#  endif 

#  endif 

return(headnode.Next  Partial); 

} 


f  —  —  —  —  —  — —  -  —  —  — -  --  --  --  --  -  — - —  — - - - - - - - - —  — - —  I 


Apply_Su b_Li s t_To_Par t ial_List( par tial_list, substitution) 

NODE  PARTIAL_LIST_ENTRY  ^partial  list; 

SUBSTITUTION  "substitution; 

{ 

NODE_PARTIAL_LIST_ENTRY  "temp; 

#  ifdef  CMLIBDEBUG 

f printf (debugf , 

"Enter  Apply  Sub  List  To_Partial_ListO) ; 

#  ifdef  LOWLEVEL 

Print  Partial  List(partial_list) ; 

#  endif 

#  endif 

temp  s  partial_list; 

while  (partial  list  Is  NULL) 

{ 

Apply_Sub_List (part ial_li st- > Constraint , 

~  "  substitution); 

partial  list  s  partial_list->Next  Partial; 

} 

#  ifdef  LOWLEVEL 


Print  Partial  List(temp); 

#  endif 
) 

/• . */ 

BOOLEAN  Fully_Instantiated( literal ) 

LITERAL  •literal; 

{ 

TERM  •term; 

for  (term  a  literal-> Arg_List;  term  Is  NULL; 

term  s  term->Next  Term) 


if  ( (tero->Type  =  =  CM  VARIABLE)  II 

(term->Type  =  =  IDB_VARIABLE)  I  I 
(term->Type  =  =  VARIABLE))  then 

{ 

return(FALSE) ; 

} 

} 

return(TRUE) s 


/*  This  file  contains  all  commands  that  the  Constraint 

Machine  processes  except  for  the  Checkconst  command  */ 

#if def  CMDEBUG 

#  undef  COMMANDSDEBUG 

#  undef  ALLOCDEBUG 

♦endif 


#if def  VAXDEBUG 

extern 

extern 

extern 

#endif 


Dump_Constraint_Table( ) ; 
Dump_Predieate_Table ( ) ; 
Dump_Partial_Tree( ) ; 


#  include  "em.h" 


extern  FILE  *debugf; 

extern  BOOLEAN  Terminate_Flag; 

extern  BOOLEAN  Using  Belt; 

extern  MESSAGE  *Alloc_MESSAGE ( ) ; 

extern  *Erase_Zmob_Query_List_Entry ( ) ; 

extern  BOOLEAN  Find_Zmob(); 

extern  BOOLEAN  Find_Query_Node ( ) ; 

/*-- . * 


Erase(msg) 

/*  Proceses  ERASE:  Deletes  query  list  corresp  to  the  source 

and  control  number  */ 


MESSAGE 

{ 

ZMOB_MACHINE 

MESSAGE_ID 

MESSAGE 

BOOLEAN 

ZMOB_PARTIAL_LIST_ENTFY 
QUERY  LIST  ENTRY 


•msg; 

source_maehine; 
control_num ber ; 
•msgout; 
found; 

*zmob_ptr ; 
•query_node_ptr; 


#  if  def  COMMANDSDEBUG 

fprintf (debugf , "Entering  Erase  procedureO); 

#  endif 

source_machine  =  msg->Message . Erase . Sender ; 
control_number  =  msg->Message . Erase. Control  Number; 

#  if def  COMMANDSDEBUG 

fprintf (debugf , "CM  erase:  sources  Hd  ,  controlsfdO, 
source  machine ,control_number ) ; 

#  endif 

found  s  Find_Zmob(source_machine,&zmob_ptr) ; 
if  (found)  then  ” 

{ 


# 


if def  COMMANDSDEBUG 


f printf (debugf , 

"Source  zmob  found  in  partial  listsO); 

#  endif 

found  =  Find_Query_Node (control_number , 

&query_node_ptr , 
znob_ptr ) ; 

if  (found)  then 

{ 

#  ifdef  COMMANDS DEBUG 

fprintf (debugf , 

"Query  found  in  partial  treeO); 

#  endif 

Erase_Zmob_Query_List  jEntry ( zmob_ptr , 

query_node_ptr ) 

} 

else 

{ 

#  ifdef  COMMANDSDEBUG 

fprintf (debugf , 

"Query  NOT  found  in  partial  treeO); 

#  endif 

} 

} 

else 

{ 

#  ifdef  COMMANDSDEBUG 

fprintf (debugf , 

"Source  zmob  NOT  found  in  partial  listsO); 


#  endif 
) 

} 

/•— . - . * 


Terminate( ) 

{ 

#  ifdef  CMDEBUG 

Terminat@_Flag  =  TRUE; 

fprintf (debugf , "Terminate  routine  enteredO); 
return; 

#  else 

Abort(FALSE) ; 
endif 


# 

) 

/• 


Askdump(msg) 

MESSAGE  *msg; 


{ 


ifdef  VAXDEBUG 

Dump_Predicate_Table ( ) ; 
Dump2constraint_Table( ) ; 
Dump”Partial_Tree( ) ; 


return; 

} 


Getatat (mag) 

MESSAGE  *msg 

{ 

return; 

} 


Load(msg) 

MESSAGE  •mag 

{ 

return; 

} 


/*  Pile  deallocmsg.c:  This  file  contains  the  routine  that 
does  special  processing  to  deallocate  specific  types 
of  messages.  */ 

#if def  CMDEBUG 

#  undef  DEALLOCDEBUG 

#  undef  LOWLEVEL 

iendif 

#  include  "cm.h" 
extern  FILE  •debugf; 


Dealloe_MESSAGE(pmsg) 

MESSAGE  *pmsg; 

{ 

#  if  def  DEALLOCDEBUG 

fprintf (debugf , 

"Deallocating  MESSAGE  of  typeJdO, 

pmsg->Type) ; 

#  endif 

switch  (pmsg->Type) 

{ 

case  ASKDUMPs 
break; 

case  CHECKCONST: 

Dealloe_LITEBAL_List ( 

pmsg->Message . Checkconst . Idb_Data.Body ) 
Dealloc_SUBSTIT0TION_List( 

pmsg->Mes sage. Checkconst. Idb_Data.Sub_List) 
break; 

case  COMDEBUGs 
break; 

case  COMDEBUGOFFs 
break; 

case  DEBUG: 
break; 

case  DUMP: 
break; 

case  ERASE: 
break; 

case  ERASEALL: 
break; 

case  ERASED: 
break; 

case  ERROR: 
break; 

case  GETSTATISTICS : 
break; 


case  LOAD: 
break; 

case  RESUME: 
break; 

case  SETCOMDEBUG: 
break; 

case  SETDEBUG: 
break; 

case  SETSTATS: 
break; 

case  STATISTICS: 
break; 

case  STATSOFF: 
break; 

case  SUSPEND: 
break; 

case  TERMINATE: 
break; 

case  VIOLATION: 

break; 

default: 

fprintf (debugf , 

"Invalid  message  *d  in  deallocatorO 
posg->Type ) ; 

break; 

} 

Local_Dealloc (pmsg , MESS AGE  SIZE) ; 

#  ifdef  DEALLOCDEBUG 


fprintf (debugf , "Deallocated  MESSAGEO) ; 


t  ”  .■  : 


m 


/*  File  dump.c:  Contains  all  routines  to  dump  predicate 

index,  constraint  table,  and  partial  constraint  tree  */ 

#lfdef  CMDEBOG 
#  undef  DDMPDEBDG 
#endif 


#  include  "em.h" 

extern 
extern 
extern  int 
extern  FILE 

extern  ZMOB_PARTIAL_LIST_ENTRY 

extern  int  ~ 

extern  int 

extern  TAG  TABLE 

extern  PREDICATE  ENTRY 

extern  CONSTRAINT_ENTRY 

/• - - - - - 


Print_LITERAL_List( ) ; 
Print~Partial~List( ) ; 
Find_Eneoded_Name( ) ; 
•debugf; 

Head_Zmob_Partial_List; 
Constraint^Count; 
Number_Predicates ; 
Tag_File_Table[ ] ; 
•Predicate_Table; 
•Constraint_Table; 


•/ 


Dump_Node_List ( tree_node ) 

PARTIAL_TREE_NODE  »tree_node; 


fprintf (debugf ,"  Dumping  a  Node  ListO); 
if  (tree_node  is  NOLL)  then 
{ 

fprintf (debugf , "Node  list  is  NULLO); 

1 

else 

( 

while  (tree  node  fs  NOLL) 

{ 

fprintf (debugf , 

"Node  s  £d" ,tree_node->Node_Number ) ; 
if  (tree_node->Parent  !s  NOLL)  then 
{ 

fprintf (debugf , "parent  s  %d0, 

tree_node->Parent->Node  Number); 

} 

else 

{ 

fprintf ( debugf , "node  is  rootO); 

} 

Print_Partial_List(tree_node->Partial ) ; 
tree  node  =  tree  node->Next; 

} 

} 

fprintf (debugf ,"  Finished  dumping  a  Node  ListO); 

} 
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*- <<*-  ■  ■  <t-  f.*.  v-  o  ^  >.■  »-*  »-• o  »-•  «-•  •- 


a 


. 


/* . •/ 

Dump_Query_List(query_list) 

QUERY  LIST  ENTRY  »query  list; 

{ 

fprintf (debugf , "Dumping  a  query  listO); 
if  (query  list  ::  NULL)  then 
{ 

fprintf (debugf ,"  Query  list  is  NULLO); 

} 

else 

{ 

while  (query  list  Is  NULL) 

{ 

fprintf (debugf ,"  Query  s  fdO, 

query_list->Query_Number ) ; 
Duap_Node_List(query__list->Node_List) ; 
query  list  ■  query  list->Next  Query; 

}  “  " 

} 

fprintf (debugf , "Done  dumping  a  query  listO); 

} 

/• . •/ 

Dump_Partial_Tree( ) 

{ 

ZMOB_PARTIAL_LIST_ENTRY  »zmob; 


L,  .. 


fprintf (debugf , 

"Oeginning  to  Dump  entire  Partial  TreeO); 
zmob  s  Head_Zmob  Partial_List.Next_Zmob; 
if  (zmob  ss  NULLT  then  ~  ” 

{ 

fprintf (debugf , "NO  zmobs  in  partial  treeO); 

} 

else 

{ 

while  (zmob  Is  NULL) 

{ 

f printf ( debugf  Zmob  s  >d0 , zmob-> Zmob) ; 
Dump_Query_List (zmob->Query_List ) ; 
zmob  s  zmob->Next  Zmob;  “ 

} 

) 

fprintf (debugf ,"0one  dumping  entire  Partial  TreeO); 

} 

/• . •/ 

Dump  Constraint  TableO 
{  " 


f.V 

£ 
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Ll 


>  .v.v  /.s  . 

Li  - 


0\v.v.vv.v.v VVVV  -.  VV  -  -  '  s- . '/-  i 
.  ^  v  v  v  r.-A.VAVr.V^r, -•VA.f.Ay <-•  o 


int 


i; 


fprintf (debugf , 

"OStarting  to  dump  Constraint  TableO); 
for  (i  s  0;i  <  Constraint_Count;  i++) 

{ 

fprintf (debugf , "Constraint  Number:  Jtd0,i+1); 
Print_LITERAL_Li  at  (Const  raint__Table[i]  ) ; 
fprintf (debugf ,"0) ; 

} 

fprintf (debugf , "Finished  dumping  Constraint  TableO); 

} 

/• . »/ 

Dump  Predicate  TableO 

{ 

char  •string_name; 

int  i,J; 

CONTAIN ING_CONSTR A INTS  •constraint_list; 

fprintf (debugf t"0Dumping  Predicate  TableO); 
for  (i  s  0;  i  <  Number  Predicates;  i++) 

{ 

j  s  Find  Encoded  Name(Predicate  Tabled]. Name, 

Tag_Pil enable); 

string_name  s  Tag_File__Table[  J]  .Name; 
fprintf (debugf ” 

Predicate  Number  s  ltd, name  =  JsO, 

Predicate_Table[l] ,Name,string_name) ; 
constraint_list  s  Predicate_Table[ i ] .Constraint_List; 
fprintf (debugf ,  ™* 

"Constraints  containing  predicate  are:0); 
while  (constraint  list  Is  NULL) 

{ 

fprintf (debugf , 

"JtdO,  cons  t raint_list-> Cons  traint_Id) ; 
constraint_list  s  “ 

“  constraint  list->Next  Constraint; 

} 

J 

) 

/• . •/ 
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/*  Pile  eTaleonst.es  This  file  contains  the  routines  to 

evaluate  equality  predicates  */ 

#if def  CMDEBUG 

#  undef  EVALCONSTDEBUG 

#  undef  LOWLEVEL 
fendlf 


#  define  local_EVAL_EQ  2 

♦include  "cm.h" 

extern  PILE  *debugf; 

extern  BOOLEAN  •Fully_Instantiated( ) ; 

extern  int  Number”of_Arguments ( ) ; 

/• . •/ 

static  BOOLEAN  compare  terms ( first_term , seoond_term ) 

TERM  “  »first_term; 

TERM  *second  term; 

{ 

int  i; 


#  if def  LOWLEVEL 

f printf (debugf , "Enter  compare_termsO) ; 

#  endif 

switch(first  term->Type) 

{ 

case  INTEGER: 

if  (second  term->Type  =s  INTEGER)  then 

{ 

return ( firs t_term-> Value . Integer .Value  =s 
second  term-> Value . Integer .Value ) ; 

} 

return(FALSE) ; 
break; 

case  STRING: 

if  (second  term->Type  ::  STRING)  then 

{ 

return(Non_Null_String_Equal ( 

first_term-> Value .String, 
second  term->Value. String) ) ; 

} 

return(FALSE) ; 
break; 
default: 

return(PALSE) ; 
break; 

) 


static  BOOLEAN 


local  evaluable(literal) 


LITERAL  *litaral } 

{ 

#  ifdef  LOWLEVEL 

fprintf (debugf , "Entering  local  evaluableO); 

#  endif 

return( ( literal->Location  s  =  BOILT_IN) 

&&  ( literal->Name  =  =  localJEVAL  EQ) 

&&  (Fully_Instantiated(literal)7 

&&  (Number  Of_Arguments ( literal-> Arg  List)  *a2)) 


LITERAL 


■Evaluate  One  Literal  List(literal  list, status) 


LITERAL 

SOBSOMPTION_ANSWER 

BOOLEAN 

LITERAL 


BOOLEAN 


•literal_list; 

•status; 

on_f irst_literal  *  TRUE; 
•literal , 

•temp, 

•back  3  NOLL; 
answer; 


ifdef  EVALCONSTDEBOG 
fprintf (debugf , 

"Entering  Evaluate_One_Literal_ListO) ; 
ifdef  LOWLEVEL 

Print_LITERAL_List(literal_list) ; 
fprintf (debugf ,"0 ) ; 
endif 
endif 

•status  s  OKAY; 
literal  s  literal  list; 
while  (literal  !=~NULL) 

{ 

if  ( local_evaluable ( literal ) )  then 

{ 

ifdef  LOWLEVEL 

fprintf (debugf , "literal  is  evaluableO); 
endif 

answer  s  compare_terms(literal->Arg_List, 

Titeral->Arg_List->Next_Term) ; 

if  (answer)  then 

{ 

ifdef  LOWLEVEL 

fprintf (debugf , 

"evaluation  succeedsIO); 

endif 

if  (on  first  literal)  then 

{ 


literal_list  s  literal->Next_Literal ; 


} 

else 

{ 

baok->Next_Literal  = 

”  literal->Next  Literal; 

} 

temp  s  literal; 

literal  s  literal->Next_Literal ; 
temp->Next_Literal  s  NOLL; 

Deal loe_LITERAL( temp) ; 

} 

else  /•  fails,  so  cannot  be  violated  •/ 

{ 

lfdef  EVALCONSTDEBUG 

fprintf (debugf evaluation  failedO); 
f printf (debugf , 

"  returning  status  NO_VIOL_POSO) ; 

endif 

•status  =  NO_VIOLATION_POSSIBLE; 
Dealloe_LITERAL_List(literal_list) ; 
return(NOLL) ; 


else  /•  just  check  next  literal  •/ 

{ 

back  s  literal; 

literal  s  literal->Next_Literal ; 
on_first  literal  s  FALSE; 

} 

} 

if  ( literal_list  ::  NULL)  then 

{ 

ifdef  EVALCONSTDEBUG 

fprintf (debugf returning  status  FOLLO); 
endif 

•status  s  FULL;/*  if  all  preds  deleted  by  eval : FULL*/ 

} 

return(literal_list) ; 


SUBSUMPTION  ANSWER  Evaluate  Nodes  Partial  Llst(tree  node) 


PARTIAL  TREE  NODE 


•tree_node; 


NODE  PARTIAL  LIST  ENTRY 


BOOLEAN 

LITERAL 


•back, 

•partial , 

•temp; 

on_f irst_partial  *  TRUE; 
•modif ied_cons train t ; 


SUBSUMPTION_ANSWER  one__eonstraint_status , 

node_status  =  OKAY; 

Ifdef  EVALCONSTDEBUG 
fprintf (debugf , 

"  Enter  Evaluate_Nodes_Partial_ListO) ; 

endif 

back  s  NULL; 

partial  s  tree  node->Partial ; 
while  (partial-! =  NULL) 

{ 

partial->Conatraint  s 

Evaluate_One_Literal_Liat ( partial ->Cona train t , 

”  “  Aone_constraint_status ) 

switch  (one  conatraint  status) 

{ 

case  NO  VIOLATION_POSSIBLE s 

if  Ton  first  partial)  then 

( 

tree_node->Partial  = 

partial->Next_Partial; 

} 

else 

{ 

back->Next_Partial  = 

partial->Next  Partial; 

} 

temp  s  partial; 

partial  3  partial->Next_Partial ; 
temp->Next  Partial  3  NULL; 

Dealloc_NODE_PARTIAL_LIST_ENTRY_Llst(temp); 
break;  ”  '  ” 

case  FULL: 

node_status  s  FULL; 
return(node_status ) ; 
case  PARTIAL:  ” 
case  OKAY: 

back  3  partial; 

partial  s  partial->Next_Partial ; 
on_f irst_partial  s  FALSE; 
break; 
default: 

fprintf (debugf , 

"Unknown  status  in  Eval  Nodes  Part  ListO); 
break; 

} 

}  /•  end  while  */ 

if  (tree  node->Partial  ss  NULL)  then 

{ 

node  status  s  NO  VIOLATION  POSSIBLE; 

} 

ifdef  EVALCONSTDEBUG 
fprintf (debugf , 


"Exit  Evaluate  Nodes  Partial  ListO); 

#  endlf 

return(node  status); 

} 

/• . - . •/ 


/•  Reads  in  the  CM's  database,  sets  up  the  string  table, 
predicate  index  and  constraint  table  •/ 

fifdef  CMDEBDG 

#  undef  INITSDEBUG 
#endif 

#  include  "cm.h" 

extern  FILE  *debugf} 

extern  int  Number_Predicates ; 

extern  int  Constraint_Count; 

extern  PREDICATE_ENTRY  •Predicate  Table; 

extern  CONSTRAINT_ENTRY  •Constraint_Table; 

extern  LITERAL  •Convert_Literal_List( ) ; 

extern  Convert_TDB_Strings ( ) ; 

extern  char  •Read  String_Table( ) ; 

extern  PREDICATEJBNTRY  »Alloe  PREDICATE_EMTRY( ) ; 

extern  CONTAINING_CONSTRAINTS 

•Alloc  CONTAINING_CONSTRAINTS(); 
extern  CONSTRAINT_ENTRY  •Alloc  CONSTRAIMT_ENTRY( ) ; 


static  set_up_em_strings(literal_list,string_table) 

LITERAL  *literal_list; 

char  •string_table; 

{ 

LITERAL  •literal; 

f  ifdef  INITSDEBUG 

fprintf (debugf , "Setting  up  CM  stringsO); 

#  endir 

for  (literal  s  literal_list; literal  Is  NULL; 

”  literal  s  literal->Next  Literal) 

{ 

Convert  IDB  Strings ( literal->Arg  List, string  table); 
}  " 

#  ifdef  INITSDEBUG 

fprintf (debugf , "Finished  setting  up  CM  stringsO); 

#  endif 

} 


static  LITERAL  *read  constraint_entry(cm  file, string  table) 


FILE 

•cm_f ile; 

char 

•string  table; 

LITERAL 

int 

char 


•literal_pointer ; 
length  s  0; 

input  buf f er [L0CAL_BUFFER  SIZE]; 


char 


"temp  ptr; 


#  ifdef  INITSDEBUG 

fprintf (debugf ,"  Enter  read  constraint  entryO); 

#  endif 

length  s  Read_Two_Bytes (cm_f ile) ; 
length  =  Read—Two— Bytes (cm—f ile) ; 

#  ifdef  INITSDEBUG 

fprintf (debugf , 

"Length,  constraint  before  Convert  Lit  a 

fd,0,lenght) ; 

#  endif 

input_buf ferCO]  a  High_Byte(length) ; 
input  buffer[1]  s  Low_Byte(length) ; 

freadT&(input_buf f er[ 2] ) , sizeof (char ) , length ,em_f  ile) ; 
temp_ptr  =  input_buf f er ; 

literal_pointer  s  Convert  Literal  List( Alength,Atemp_ptr, 

~  TRUE)  | 

set_up  cm_strings (literal_pointer , string_table) ; 
returnTliteral  pointer); 

} 

/• . •/ 

static  read_index_entry(predioate_entry,e*_f ile,string_table) 

/•  reads  in  on*  predicate  name,  and  oonstaining  constraints. 
Sets  up  the  index  entry  for  this  prediate  •/ 

PREDICATE_ENTRY  •prediea tenantry; 

FILE  "cm_file;  — 

char  "string  table; 

{ 

int  constraint_eount; 

int  i; 

CONTAINING_CONSTRAINTS  surrogate  node; 

CONTAINING_CONSTRAINTS  "constraint; 

#  ifdef  INITSDEBUG 

fprintf (debugf , "Reading  an  index  entryO); 

#  endif 

constraint  r  &surrogate_node; 

predicate__entry->Name  =-Read_Two_Bytes (cm  file); 
constraint_count  s  Read_Two_By tes (cm_f ile7; 
for  (i  s  oj  i  <  constraint  count;  i++) 

I 

constraint->Next_Constraint  = 

Alloo_CONTAINING_CONSTRAINTS( ) ; 
constraint  a  constraint->Next_Constraint; 
constraint->Constraint  Id  a  Read  Two  Bytes(cm  file); 

}  -  -  -  - 
oonstraint->Next_Constraint  a  NULL; 
predioate_entry-Tconstraint_List  a 

surrogate_node.Next_Constraint ; 


#  ifdef  INITSDEBOG 

fprintf (debugf , "Finished  reading  one  pred  entryO); 

#  endlf 

} 

/» . . - . . . •/ 


Read_Constraint_File ( cm_f ile) 

FILE  ”»em  file; 

{ 

int  i; 

char  •string_table; 


# 

# 


* 


# 

# 

# 


# 


ifdef  INITSDEBOG 

fprintf (debugf ,  "Enter  Read  Constraint  FileO); 
endif 

string_table  *  Read_String_Table (cm_f ile ) ; 
Number_Predicates  a“’Read_Two_Bytes  (em_f  ile) ; 
Predicate_Table  = 

Alloe_PREDICATE_ENTRY(Nuober_Predioates) 
for  (i  =  0;  i  <  Number  Predicates;  i++) 

{ 

read_index_entry(4( Predieate_Table[ i ] ) ,cm_f ile, 

”  “  string_table) ; 

} 

ifdef  INITSDEBOG 

fprintf (debugf , 

"Predicate  Index  read  from  CM_FileO); 
fprintf (debugf ."Oeginning  to  read  constraintsO) ; 
endif 

/*  now  to  read  in  the  constraint  table  •/ 
Constraint_Count  s  Read  Two  Bytes (cm_f ile) ; 
ifdef  INITSDEBUG 

fprintf (debugf , 

"Constraint  Count  s  JdO , Constraint_Count ) ; 

endif 

Constraint  Table  = 

Alloc_CONSTRAINT_ENTRY(Constraint_Count) 
for  (i  a  0;  i  <  Constraint  CountJ  i++) 

{ 

Constraint_Table[i ] .Literal_List  a 

”  read_eonstraint_entry(cm_^f  ile, 

~string__table) ; 

Constraint  Tablet i ]. Checked  Flag  a  FALSE;  ~ 

} 

ifdef  INITSDEBOG 

fprintf (debugf , 

"Finished  reading  constraint  tableO); 


#  endif 


/*  File  input. c:  Contains  processes  an  input  zmob  message 
and  creates  a  message.  Calls  routine  to  process  the 
message.  •  / 

#if def  CMDEBUG 

#  define  IMPOTDEBUG 

#  define  ALLOCDEBUG 
#endif 

#  include  "em.h" 


extern 

PORT  ID 

Recei ve_Port ; 

extern 

ZMOB  MACHINE 

Myself;” 

extern 

FILE- 

•debugf ; 

extern 

BOOLEAN 

Comdebug  Enabled; 

extern 

BOOLEAN 

Debug_Enabled; 

extern 

BOOLEAN 

Suspended; 

extern 

ZMOB  MESSAGE 

•Read_PRISM_Message( ) ; 

extern 

MESSAGE  TYPE 

Message_Type ( ) ; 

/•  extern  ZMOB  MESSAGE 

•Get  PRISM  MessageO;  for  4. 

extern 

MESSAGE 

•Alloc_MESSAGE( ); 

extern 

MESSAGE 

•Convert_Eraseall ( ) ; 

extern 

MESSAGE 

•Convert”Erase( ) ; 

extern 

MESSAGE 

•Convert_Askdump( ) ; 

extern 

MESSAGE 

•Convert_Get statistics ( ) ; 

extern 

MESSAGE 

•Convert_Load( ) ; 

extern 

MESSAGE 

•Make_Comdebug_Message ( ) ; 

extern 

MESSAGE 

•Convert_Check~Constraint ( ) ; 

/• 


Process  Msg(z  msg) 

{ 

ZMOB_MESSAGE 

•z_msg; 

MESSAGE 

•msg; 

MESSAGE_ID 

control_number ; 

# 

if def  INPUTDEBUG 

f printf (debugf , 

"Process  Input  Message,  Types  JdO, 

Message_Type(z_msg) ) ; 

#  endif  ” 

if  (z  msgssNULL)  then 

{ 

return; 

} 

switch (Message  Type(z  msg)) 

{ 

case  ASKDUMP : 

msg  s  Convert_Askdump(z_msg) ; 

Askdump(msg) ;” 

Dealloc_MESSAGE (msg ) ; 
break:  ” 


case  CHECKCONST: 

msg  s  Convert_Check_Constraint(z_msg) ; 
msg->Message .Checkconst . Sender  =  Source(z_msg) 
/•  should  be  in  convert  routine  •/ 

Checkconst (msg) ; 

Dealloc_MESSAGE(msg) ; 
break; 

case  COMDEBUGOFF: 

Comdebug  Enabled  =  FALSE; 
break; 

case  DEBUGOFF: 

DebugEnabled  =  FALSE; 

break7 

case  ERASE: 

msg  =  Convert_Erase(z_msg) ; 

Erase(msg); 

Dealloc_MESSAGE(msg) ; 
break; 

case  GETSTATISTICS: 

msg  s  Convert_Getstatistics (z_msg) ; 
Getstat(msg) ; 

Dealloc_MESSAGE(msg) ; 
break; 
case  LOAD: 

msg  s  Convert_Load(z_msg) ; 

Load(msg) ; 

Dealloc_MESSAGE(msg) ; 
break; 

case  SETCOMDEBUG: 

Comdebug_Enabled  =  TRUE; 
break; 

case  SETDEBUG: 

Debug_Enabled  =  TRUE; 
break; 

case  SETSTATS: 
break; 

case  STATSOFF: 
break; 

case  TERMINATE: 

Terminate( ) ; 
break; 
default : 

fprintf (debugf , 

"Unknown  message  type  YdO, 

Message_Type(z_msg) ) ; 

break; 

} 

#  ifdef  INPUTDEBUG 

fprintf (debugf , "Exiting  Process  MsgO); 

#  endif 

} 

/• . . 


1 1  n 


/•  The  following  routine  removed  due  to  4.2 


Input  Interrupt  HandlerO 

{ 

ZMOB_MESSAGE  »zjnsg; 

while  (ipcgetsignal (NORMALMSG )  Is  0) 

{ 

#  ifdef  ALLOCDEBUG 

fprintf (debugf , "Enter  Interrupt  Handler  LoopO); 

#  endif 

z_msg  s  Get_PRISM_Message(Receive_Port) ; 
if  ((z_mag  7=  NOLL)  II  (CCint)z  msg)  <  0))  then 
{ 

fprintf (debugf ,"CMfd  Bad  Input  MessageO, 

Myself) 

} 

else 

{ 

Process_Msg(z_msg) ; 

Dealloc~ZMOB  MESSAGE ( z  msg); 

}  “ 

ipcdismisssignal (NORMALMSG) ; 

#  ifdef  ALLOCDEBUG 

fprintf (debugf , "Exit  Interrupt  Handler  LoopO); 

#  endif 

} 

} 


/*  Fil«  output. c:  Contains  routine  to  create  a  ZMOB  message 
from  a  message.  Then  sends  it  over  the  belt  to  the 
destination  or  writes  it  to  a  file.  The  BOOLEAN 
Using_Belt  determines  which.  */ 

#  include  ”cm.h” 

#  ifdef  CMDEBUG 

#  define  OUTPUTDEBUG 

#  endif 


extern  BOOLEAN 
extern  BOOLEAN 
extern  PORTJID 
extern  FILE- 
extern  FILE 
extern  ZMOB_MACHINE 
/•  extern  Tnt 
extern  MESSAGE 
extern  MESSAGE 
extern  ZMOB  MESSAGE 
extern  ZMOB- MESSAGE 
extern  ZMOB_MESSAGE 
extern  ZMOB- MESSAGE 
extern  ZMOB_MESSAGE 
extern  ZMOB  MESSAGE 
extern  ZMOB- MESSAGE 


Using_Belt; 
Comdebug_Enabled; 
Transmit_Port  j 
•debugf ;— 

•Output_File; 

Myself; 

Send_PRlSM__Message( ) ;  removed 
?Make  Comdebug  MessageC) 
•Alloc_MESSAGET); 
•Create_Comdebug( ) ; 
•Create_Debug( ) ; 
•Create_Dump( ) ; 
*Create_Erased( ) ; 
•Create_Error  ( ) ; 
•Create_Statistics ( ) ; 
•Create_Violation( ) ; 


due 


to  4 . 2*/ 


ZMOB_MESSAGE  *Make  Output  Message(msg) 

MESSAGE  •msg;" 

{ 

ZMOB_MESSAGE  #z_msg; 

#  ifdef  OUTPUTDEBUG 

fprintf (debugf , "Creating  ZMOB  message:  type  JdO, 

msg->Type ) ; 

#  endif 

switch  (msg->Type) 

{ 

case  COMDEBUG: 

zjnsg  =  Create_Comdebug(msg) ; 
z—msg->controlword. control  register  =  (int) 

SINGLE_PATTERN ; 

z_msg->controlword. destination  =  HOST_PATTERN ; 
break; 
case  DEBUG: 

zjnsg  a  Create_Debug(msg) ; 

z  msg->controlword . control  register  a  (int) 

SINGLE_PATTERN; 

z_msg->controlword. destination  a  HOST_PATTERN ; 


break; 

case  ERASED: 

zjnsg  s  Create_Erased(asg) ; 

z”asg->controlword.control_register  =  (int) 

SINGLE_ADDRESS; 

z_asg->controlword. destination  = 

msg->Message. Erased. Sender; 

break; 
case  ERROR: 

zjnsg  s  Create_Error (asg) ; 

z~ asg->controlword.eontrol_register  =  (int) 

SINGLE_ADDRESS; 

z  jnsg->controlword . destination  = 

msg->Message . Answer_List . Sender 

break; 

case  STATISTICS: 

zjnsg  =  Create_Statistics (msg) ; 
z  asg->eontrolword . eontrol_register  =  (int) 

SINGLE_PATTERN; 

z_asg->controlword. destination  =  HOST_PATTERN ; 
break; 

case  VIOLATION: 

zjnsg  =  Create_Violation(msg) ; 
z~asg->controlword.control_register  =  (int) 

SINGLE_ADDRESS; 

z  asg->controlword. destination  s 

asg->Mes sage. Violation. Sender; 

break; 

default: 

fprintf (debugf , "Unknown  Output  Message  fdO, 

asg->Type ) ; 

return(NOLL) ; 
break; 

} 

z_asg->eontrolword . source  =  Myself; 

#  ifdef  OOTPOTDEBUG 

fprintf (debugf ,"ZMOB  aessage  creation  doneO); 

#  endif 
return(z  msg); 

) 

/« . * 

Output__Message(out  jnsg) 

MESSAGE  ~  »out  asg; 

{ 

MESSAGE  •eoadebugjnsg; 

ZMOB_MESSAGE  •out_zjusg; 

ZMOB”MESSAGE  *coadebug_z  jnsg; 

int  ~  status;  ~  ~ 

int  coadebug_status; 

#  ifdef  OUTPUTDEBUG 

fprintf (debugf , "Entering  Output  MessageO); 


# 

/• 


/». 

/• 


•/ 


# 

} 

/». 


•ndif 

out  z_msg  s  Malce_nOutput_Message  (out_msg) ; 
if  Tout_z_msg  :s" NOLL)  then  “ 


return; 


{ 

} 

if  (Using  Belt)  then 
{ 

ifdef  OUTPUTDEBUG 

fprintf (debugf , "Sending  Output  MessageO); 
endif 

Disable_Interrupts ( ) ;  removed  due  to  4.2 

status  7  Send_PRISM_Message (out_z_msg,Transmit_Port) ; 

Enable_Interrupts ( ) ;  for  4.2  •/ 

ifdef  OUTPUTDEBUG 
fprintf (debugf , 

"Sent  Output  Message  to  port:  status  JtdO, 

status ) ; 

endif 

- . . . . . . •/ 

if  (status  =  =  0)then 
{ 

fprintf (debugf 

"CMfd  send  to  port  %d  timed  outO, 
Myself , Transmit  Port); 

} 

else  if  (status  =  =  -1)then 
{ 

Abort ( TRUE ) ; 

} 

} 

else 
{ 


} 


Wri te_PR!SM_Mes sage (Out put_File ,out_z_msg) ; 


Dealloc  ZMOB  MESSAGE(out  z  msg); 
ifdef  OUTPUTDEBUG 

fprintf (debugf , "Sent  Output  MessageO); 
endif 


.*/ 
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/•  Pile  partials.c:  Contains  all  routines  to  manipulate  the 
tree  of  partial  constraints.  •/ 

#if def  CMDEBUG 

#  undef  PARTIALSDEBUG 

*  undef  LOWLEVEL 
iendif 


♦include  "ca.h" 
extern  FILE 

extern  ZMOB  PARTIAL  LIST 
extern  ZMOBJ?ARTIAL”LIST 

extern  QUERY_LIST  ENTRY 
extern  PARTIALJTREE_NODE 
extern  ”  ” 

#if def  LOWLEVEL 
extern 
#endif 


•debugf ; 

ENTRY  Head  Zmob  Partial_List; 

‘ENTRY 

•Alloc  ZMOB  PARTIAL_LIST_ENTRY( ); 
•Alloc  QUERY JLIST  ENTRYO; 
•Alloc” PARTIAL_TREE  NODE(); 
Dealloc_PARTIAL_TREE_NODE( ) ; 

Print_LITERALJList( ); 


/•- 


Remove_Partial_From_Nodes_PartialJList(partial  ,node ) 


-•/ 


NODE_PARTIAL_LIST  ENTRY 
PARTIAL_TREE_NODE” 

NODE  PARTIAL  LIST  ENTRY 


•partial; 

•node; 

•back  =  NULL, 
•temp; 


# 

* 


if def  PARTIALSDEBUG 
fprintf (debugf , 

"Enter  Remove  Partial  From  Nodes_Partial_ListO) ; 
endif 

if  (node->Partial  ::  partial)  then 

( 


node->Partial  =  partial->Next_Partial ; 


} 

/•■ 


} 

else 

{ 

temp  s  node->Partial ; 

while  ((temp  1=  NULL)  &&  (temp  !  =  partial)) 

{ 

back  s  temp; 

temp  s  temp->Next  Partial; 

} 

baek->Next  Partial  s  partial->Next  Partial; 
partial->Next  Partial  =  NULL; 

} 

Dealloc_NODE_PARTIAL_LIST_ENTRY_List(partial); 


'  T»  • 
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static  insert_node_in_index(node_num,query_node,node_ptr ) 

CLAUSE  NAME  node  num; 

QUERY  LIST  ENTRY  »query  node; 

PARTIAL  TREE  NODE  «node  ptr; 

{ 

query_node->Node_Index[node_num  %  MAX_NODE_ENTRIES]  s 

"  “  node  ptr; 

} 

/• . •/ 

static  clear_index(query_node ) 

QUERY_LIST_ENTRY  •query_node; 

{ 

int  i; 

for  (i  s  0;  i  <  MAX_NODE_ENTRIES; 

"query  node->Node  Index[i++]  =  NULL); 

) 

/• - •/ 

static  PARTIAL_TREE_NODE  »create_partial_tree_node ( 

~  query_node_ptr , 

new_node_num) 

QUERY_LIST_ENTRY  »»query_node_ptr ; 

CLAUSE_NAME  new  node  numj 

{  ~ 

PARTIAL_TREE_NODE  »temp; 

#  ifdef  LOWLEVEL 

fprintf (debugf , "Enter  create_partial_tree_nodeO) ; 

#  endif  ~ 

temp  s  Alloc  PARTIAL  TREE  N0DEO; 
temp->PartiaT  =  NULLj 

temp-> Parent  =  NULL;  /•  10  Aug  •/ 

temp->Node_Number  =  new_node_num ; 
temp->Next  *  ( *query_node_ptr )->Node_List; 

( •query_node_ptr )->Node_List  s  temp;- 

insert  node  Tn_index(new_node_num,tquery_node_ptr,temp) ; 
returnTtempT;  ”  ~  ** 


} 

/• . •/ 

static  create_zmob  entry( zmob, zmob  ptr) 


ZMOB  MACHINE  zmob; 

ZMOB"PARTIAL_LIST_ENTRY  ••zmob_ptr $ 


{ 


ZMOB_PARTIAL_LIST_ENTRY  »teap; 

#  if def  LOWLEVEL 

f printf (debugf , "  Entering  create  zaob  entryO); 

#  endif 

temp  a  Alloe_ZMOB_PARTIAL_LIST_ENTRY( ) ; 
temp->Zmob  a  zaob; 
teap->Query_List  a  NULL; 

teap->Next_Zaob  a  Head_Zaob_Partial_List.Next_Zaob; 
Head_Zaob_Partial_ListTNext”Zaob  =  teap; 

•  zaob  ptr"%  teap; 

} 

/• - •/ 

static  create_query_node_entry (query ,query_node_ptr , zaob_ptr ) 

MESSAGE_ID  query; 

QUERY  LIST_ENTRY  *»query_node  ptr; 

ZMOB_PARTIAL_LIST_ENTRY  ••zaob_ptr; 

{ 

QUERY_LIST— ENTRY  »teap; 

#  if def  LOWLEVEL 

f printf (debugf  t 

"  Entering  create_query_node_entryO) ; 

#  endif  *“ 

teap  a  Alloc_QUERY_LIST_ENTRY(); 
teap->Node_List  a  NULL; 
teap->Query_Nuaber  a  query; 

teap->Next  Query  a  ( •zaob_ptr )->Query_List; 

( •zaob_ptr7->Query_List  a”teap; 

*query_node  ptr  a  teap; 
clear  indexTteap); 

} 

/•  — . •/ 


PARTIAL  TREE  NODE 


*Create_New_Partial_Tree( zaob, query , 

new_node_nua , 
zaob_ptr 7 
query_node  ptr) 


ZNOB  MACHINE 
MESSAGE  ID 
CLAUSE  NAME 

ZMOB  PARTIAL  LIST  ENTRY 
QUERY  LIST  ENTRY 


zaob; 

query; 

new_node_nua ; 
••zaob_ptr ; 
••query  node_ptr; 


{ 

PARTIAL  TREE  NODE 


*tree_node; 


#  if def  PARTIALSDEBUG 


fprintf (debugf Enter  Create_New_Partial_TreeO ) ; 

#  endif 

if  (*zmob  ptr  ==  NOLL)  then 

{ 

create  zmob  entry ( zmob , znob  ptr); 

} 

if  (*query  node  ptr  ::  NULL)  then 

{ 

creat  e_query_node__entry  (query  ,query_node_ptr , 

”  zaob-ptr); 

} 

tree_node  =  create_partial__tree_node(query_node__ptr , 

"  '  new_node_num) ; 

return(tree  node);  ” 

} 


PARTIAL_TREE_NODE  •Create_Child_Of_Parent ( parent , 

~  new_node_num,query_node) 


PARTI AL_TREE_NODE 
CLAUSE_NAME 
QUERY  LIST  ENTRY 


•parent; 

new_node_num; 

•query__node; 


PARTIAL  TREE  NODE 


•temp; 


} 

/». 


ifdef  PARTIALSDEBUG 

fprintf (debugf Enter  Create_Child_Of_ParentO) ; 
endif  “  “ 

temp  =  Alloc_PARTIALjrREE_NODE(); 
temp->Next  =  query_node->Node_List; 
query_node->Node_List  =  temp;- 
tempOPartial  =  NULL; 
temp->Parent  s  parent;  /•  10  Aug  •/ 
temp->Node_Number  =  new_node_num ; 

insert_node  in_lndex(new__node_num  ,query_node,  temp) ; 
returnTtempT; 


.•/ 


static  BOOLEAN 


f ind_parent (parent , parent_ptr , query_node ) 


CLAUSE  NAME 
PARTIAL  TREE  NODE 
QUERY  LIST  ENTRY 


parent; 
••parent_ptr; 
•query_node ; 


PARTIAL  TREE  NODE 
BOOLEAN- 


•node_list; 
parent_found  =  FALSE; 


node_list  =  query_node->Node_Index[parent] ; 
if  (node_list  ::  NULL)  then  return(FALSE) ; 
if  (node_list->Node_Number  =s  parent)  then 
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parent_found  s  TRUE; 

•parent  ptr  =  node  list; 
ifdef  PARTIALSDEBUG 
f printf (debugf , 

"Found  parent  ffd  in  indexO, 

node  list->Node  Number); 

ifdef  LOWLEVEL 

Print__Partial_List(node_l  is  t->  Partial ) ; 
endif 
endif 

} 

else 

{ 

ifdef  PARTIALSDEBUG 

f printf (debugf , "Searching  for  parent  nodeO); 
endif 

node_list  =  query_node->Node_List; 

while  (Oparent  found)  &&  (node_list  !=  NULL)) 

{ 

if  (node_list->Node  Number  s=  parent)  then 
{ 

ifdef  PARTIALSDEBUG 
f printf (debugf , 

"Parent  found  in  searohO) 

endif 

parent_found  a  TRUE; 

•parent  ptr  a  node  list; 

} 

else 

{ 

node_list  a  node  list->Next; 

} 

} 

} 

return ( par ent_f ound) ; 


BOOLEAN  Find_Query_Node (query ,query_node_ptr,zmob) 

MESSAGE_ID  query; 

QUERY_LIST  ENTRY  ••query  node  ptr; 

ZMOB_PARTIAL_LIST_ENTRY  »zmob; 


QUERY_LIST_ENTRY  »temp; 

BOOLEAN  ~  query_found  a  FALSE; 

ifdef  PARTIALSDEBUG 

f printf (debugf ,"  Enter  Find  Query_NodeO) ; 

endif 

temp  a  zmob->Query  List; 


while  ((lquery  found)  &&  (temp  !s  NULL)) 

{ 

if  (temp->Query  Number  s=  query)  then 

{ 

query_found  s  TRUE; 

•query  node  ptr  s  temp; 

>  " 
else 
{ 

temp  s  temp->Next  Query; 

) 

} 

returntquery  found); 

} 

/» - 


BOOLEAN  Find  Zmob( zmob , zmob  ptr) 


ZMOB_MACHINE 

ZMOB_PARTIAL_LIST_ENTRY 

ZMOB_PARTIAL  LIST  ENTRY 
BOOLEAN 


zmob; 

••zmob_ptr ; 

•temp; 

zmob_found  a  FALSE; 


#  ifdef  LONLEVEL 

fprintf  (debugf  Enter  Find__ZmobO) ; 

#  endif 

temp  a  Head_Zmob_Partial__List.Next_Zmob; 
while  ((temp  !a  NULL)  &&~( ! zmob_f ound) ) 

{ 

if  (temp»>Zmob  sa  zmob)  then 
{ 

zmob_found  a  TRUE; 

•zmob  ptr  a  temp; 

} 

else 

{ 

temp  a  temp->Next  Zmob; 

} 

} 

return(zmob  found); 

} 

/• . . - - - 


•/ 


•/ 


BOOLEAN  Find  Parent  In  Tree(zmob, query, parent, zmob  ptr. 


ZMOB  MACHINE 
MESSAGE  ID 
CLAUSE  NAME 

ZMOB  PARTIAL  LIST  ENTRY 
QUERY  LIST  ENTRY 


query_node_ptr , 

parent_ptr) 

zmob; 

query; 

parent; 

••zmob_ptr; 

•»query_node  ptr; 


r  ‘ 
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PARTIAL  TREE  NODE 


••parent  ptr; 


.*• 


.V.%  , 


W 


I 


I 


i 


% 

b 

I 


c 

BOOLEAN 


found; 


#  ifdef  PARTIALSDEBUG 

fprintf (debugf Enter  Find_Parent_In_TreeO) ; 

#  endif 

•zmob— ptr  s  NULL; 

•query__node_ptr  =  NULL; 

•parentjptr” =  NULL; 
found  =  Find_Zmob(zmob,zmob_ptr) ; 
if  (found)  then 
{ 

found  s  Find_Query_Node(query ,query_node_ptr , 

*zmob_ptr); 

if  (found)  then 

{ 

found  s  find_parent ( parent , parent_ptr, 

•query_node_ptr ) ; 

} 

> 


# 


# 

} 

/» 


ifdef  PARTIALSDEBUG 
if  (found)  then 
{ 

f printf (debugf , 

"  Parent  node  found  in  Find_ParentO) ; 

} 


else 

{ 

fprintf (debugf , 

"Parent  node  NOT  found:  Find_ParentO) ; 

1 

endif 

return(f ound) ; 


•/ 


Add_Partial_Cons train t_To_Node (node , partial_list ) 

/•  add  list  to  front  of  existing  list  •/ 

PARTIAL  TREE  NODE  »node; 

NODE_PARTIAL”LIST_ENTRY  •partial_list; 

{ 

NODE_PARTIAL_LIST_ENTRY  •temp, 

™  ~  »end; 

#  ifdef  PARTIALSDEBUG 
f printf (debugf , 
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"Enter  Add_Partial_Constraint_To_NodeO) ; 

#  endif 

if  (partial  list  !•  NOLL)  then 

{ 

end  s  partial  list; 

while  (end->Next  Partial  !=  NULL) 

{ 

end  s  end->Next_Partial ; 

} 

end->Next_Partial  =  node->Partial ; 
node->Partial  =  partial_list; 

#  ifdef  PARTIALSDEBUG 

#  ifdef  LOWLEVEL 

Print_Partial_List(node-> Partial ) ; 

#  endif  ~ 

#  endif 

} 

} 

/• . - . 


Replace_Partial_By_Partial_List (old_partial ,new_partial , 

“  ”tree_node) 

N0DE_PART1AL_LIST_ENTRY  »old_partial , 

“  •new_partial ; 

PARTIAL  TREE  NODE  "tree  node; 


{ 

NODE  PARTIAL  LIST  ENTRY 


•end_new_partial , 
•predecessor; 


#  ifdef  PARTIALSDEBUG 

f printf (debugf , 

"Enter  Replace  Partial_By_Partial_ListO) ; 

#  endif 

end_new_partial  =  new_partial; 

while  (end  new_partial->Next_Partial  !=  NULL) 

{ 

end_new_partial  =  end  new  partial->Next_Partial ; 

} 

if  (tree  node->Partial  ==  old  partial)  then 

{ 

tree_node->Partial  =  new_partial; 
end_new_partial->Next_Partial  = 

”  old  partial->Next_Partial ; 

} 

else 

( 

predecessor  s  tree_node->Partial ; 

while  (predeoesaorONext  Partial  !=  old  partial) 

{ 

predecessor  =  predecessor->Next  Partial; 


} 


predecessor->Next_Partial  =  new_partial; 
end_new_partial->Next_Partial  = 

old_partial->Next_Partial ; 

} 

old  partial->Next_Partial  =  NULL; 

Dealloc  NODE  PARTIAL  LIST_ENTRY  List(old  partial); 


/•« 


Remo ve_Node_From_Partial_Tree( node , query) 


PARTIAL_TREE_NODE 
QUERY  LIST  ENTRY 


•node; 

•query; 


CLAUSE_NAME 
PARTIAL  TREE  NODE 


node_num; 

•temp; 


ifdef  PARTIALSDEBUG 
f printf (debugf , 

"  Enter  Remove  Node_Prom_Partial_TreeO) ; 

endif 

node_num  =  node->Node_Number ; 
query->Node_Index[node_num]  =  NULL; 
if  (query->Node_Liat  ==  node)  then 


{ 


} 

else 

{ 


query->Node_Liat  =  query->Node_List->Next ; 


temp  =  query->Node_List; 
while  (temp->Next  fs  node) 


{ 


} 


temp  s  temp->Next; 


} 


temp->Next  =  node->Next; 


} 

/»• 


node->Next  =  NULL; 

Deal loc_PARTIAL_TREE_NODE( node) ; 


Remove_Query_From_Query_List( zmob, query ) 


ZMOB  PARTI AL_LIST  ENTRY 
QUERY  LIST  ENTRY 


•zmob; 

•query; 


QUERY  LIST  ENTRY 


•pred_query ; 


ifdef  PARTIALSDEBUG 
f printf (debugf , 

"Enter  Remove-Query_From_Query_>ListO) ; 
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#  endif 

pred_query  =  zmob->Query_ List; 
if  (pred_query  =  =  query)  then 
{ 

zmob->Query  List  =  query->Next  Query; 

1 

else 

{ 

while  (pred  query->Next  Query  !s  query) 

{ 

pred  query  =  pred  query->Next_Query; 

} 

pred  query->Next_Query  s  query->Next  Query; 

} 

query->Next_Query  s  NOLL; 

} 

/• . •/ 

Remove_Zmob_From_Zmob_Partlal_List ( zmob) 

/*  uses  global  Headnode  */ 

ZMOB_PARTIAL_LXST  ENTRY  •zmob; 

{ 

ZMOB_P  ARTIAL__LIST_ENTRY  »pred_zmob; 

#  ifdef  P ARTIALSDEBOG 

fprintf (debugf , 

"Enter  Remove_Zmob_From_Partial_List  entryO); 

#  endif 

pred_zmob  *  Head_Zmob  Partial_List. Next_Zmob; 
if  (pred  zmob  as  zmobT  then 
{ 

Head_Zmob  Partial  List . Next_Zmob  s  zmob->Next_Zmob; 

} 

else 

{ 

while  (pred_zmob->Next_Zmob  !=  zmob) 

{ 

pred  zmob  =  pred  zmob->Next_Zmob; 

} 

pred  zmob->Next  Zmob  s  zmob->Next  Zmob; 

} 

zmob->Next_Zmob  =  NULL; 

} 

/» . •/ 

Erase__Zmob_Query_List_Entry(  zmob,  query ) 

/•  only  ealled  when  zmob  and  query  exist  •/ 

ZMOB  PARTIAL  LIST  ENTRY  »zmob; 


I 


rz 


i 


v' 

V* 

V 
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QUERY_LIST_ENTRY  »query; 


ifdef  PARTIALSDEBOG 
fprintf (debugf , 

"Enter  Erase_Zmob_Query_ Liat_EntryO) 

endif 

Remove  Query  Prom  Query  List(zmobf query) ; 
Dealloc_QUERY_LIST_ENTRY (query) j 
if  (zmob->Query  List  =  =  NOLL)  then 
{ 

ifdef  PARTIALSDEBUG 
fprintf (debugf , 

"Zmob's  query  list  is  emptyO); 
fprintf (debugf , 

"So  removing  it  from  Zmob  listO) 

endif 

Remove_Zmob  From_Zmob  Partial_List(zmob) ; 
Dealloc  ZMOB  PARTIAL  LIST  ENTRY(zmob) ; 


/•  Pile  predindex.e:  Contains  all  routines  to  manipulate 
the  predicate  index.  */ 

#if def  CMDEBOG 
#  define  PREDINDEXDEBUG 
fendif 


finclude  "cm.h" 


extern 

extern 

extern 

extern 

extern 


FILE 

PREDICATE_ENTRY 

CONSTRAIMT_ENTRY 

int 


•debugf ; 

*Predicate_Table; 

•ConstrainF_Table; 

Number_Predicates; 


CONTAINING  CONSTRAINTS 

•Alloc  CONTAINING  CONSTRAINTS( 


9 


/• 


•/ 


CONTAINING  CONSTRAINTS  *Merge  Containing  Constraintsdistl , 

list2) 


/•  add  list  two  to  the  end  of  list  one  •/ 


CONTAINING 

CONSTRAINTS 

•listl , 

•list2; 

CONTAINING 

CONSTRAINTS 

•temp , 

•end; 

if  (listl 

ss  NULL)  then 

{ 

return(list2) ; 

} 

else 

{ 

temp  s  listl; 

end  s  NULL; 

while  (temp  Is  NULL) 

{ 

end  s  temp; 

temp  s  tempONext  Constraint; 

} 

end->Next_Constralnt  =  llst2; 
returndistl ) ; 

} 

} 

/•- . •/ 

static  CONTAINING  CONSTRAINTS  »Copy  Containing  Constraints( 

list) 


CONTAINING_CONSTRAINTS  »list; 
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CONTAINING  CONSTRAINTS 


•temp , 
headnode; 


temp  s  Aheadnode; 
while  (Hat  !  =  NULL) 

( 

temp->Next  Constraint  s 

Alloe_CONTAINING_CONSTRAINTS( ) ; 
temp  s  temp->Next_Cons traint ; 
temp->Next_Constraint  =  NULL; 
temp->Constraint_Id  =  list->Constraint_Id; 
list  s  list->Next  Constraint; 

} 

return (headnode .Next_Constraint ) ; 


static  CONTAINING  CONSTRAINTS  •search  predicate  table(name) 


LITERAL  NAME 


name: 


for  (i  a  0;  1  <  Number  Predicates;  i++) 

{ 

if  (Predicate  Tabled ]  .Name  ==  name)  then 

{ 

ret  urn  (Predicate  Tabled  ].  Constraint_List) ; 

1 

) 

return(NULL) ; 


C0NTAINING_C0NSTRAINTS  •Find_All_Constraints_To_Check(body) 


LITERAL 


•body; 


CONTAINING  CONSTRAINTS 


answer, 

•list; 


ifdef  PREDINDEXDEBUG 
fprintf (debugf , 

"Enter  Find_All_Constraints_To  CheckO); 

endif 

answer. Next  Constraint  *  NULL; 
while  ( body” t »  NULL) 

{ 

list  s  search_predioate_table(body->Name) ; 
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if  (list  ! a  NOLL)  then 

list  s  Copy_Containing_Constraints(list) ; 
answer .Next”Constraint  = 

Merge  Containing_Constraints( 

answer. Next  Constraint, 

list); 

) 

body  s  body->Next_ Literal; 


ifdef  PREDINDEXDEBUG 

if  (answer. Next  Constraint  ss  NULL)  then 

( 

fprintf (debugf 1 

"  NO  constraints  found  to  checkO); 

) 

else 

{ 

list  a  answer. Next  Constraint; 
while  (list  fa  NULL) 

fprintf (debugf , "Constraint  to  check  a  fdO, 

list->Constraint_Id) ; 
list  a  list->Next_Constraint; 

} 


endif 

return(answer.Next_Constraint) ; 


-  *  V  V  •/' A  .V  -•  •  -  *  .  *  .  • 


*  "  •/ 


/*  File  startup.es  Contains  the  command  line  options  r~’ — 

handler.  This  routine  is  common  to  most  PRISM  programs  9  ■ 

and  was  copied  and  modified  for  the  Constraint  Machine  */ 

#if def  CMDEBUG  : I'l-l ^ 

#  define  STARTOPDEBUG  :Sv>: 

#  define  VAXDEBOG 

#endif  1 

#  include  "cm.h" 

•debugf; 

Myself;  -  ~ 

UsingjBelt}  *  ■ 

Oeeur”Cheek} 

•Input_File} 

•Output_File} 

Receive”Port; 

Transmit_Port}  * — • 

•Alloc_MESSAGE( );  * 

*Make_Output_Message ( ) ; 


#if def  VAXDEBUG 

extern  TAGJTABLE 
extern 
extern 
#endif 


Tag_File_Table[ ] ; 
Dump_Constraint_Table( ) ; 
Dump_Predicate_Table( ) ; 


extern  FILE 
extern  ZMOBJWCHINE 
extern  BOOLEAN 
extern  BOOLEAN 
extern  FILE 
extern  FILE 
extern  PORT_ID 
extern  PORT_ID 
extern  MESSAGE 
extern  ZMOB  MESSAGE 


Reeeive_Port  * 

Allocate_Input_Port(argv[++arg_num] ) ; 
Transmit  Port  s 

”  Allocate_Output_Port(argv[++arg_num] ) 
break;  ~  removed  due  to  4.2 

ease  'd': 

debugf  a  fopen(argv[+-t-arg_num]  ,"w"  ) ; 
if  (debugf  aa  NOLL)  then 
{ 

debugf  =  stderr; 
fprintf (debugf , 

"Could  not  open  £s, assumed  terminal  debugO, 
argv[arg  numj); 

} 

break; 
case  'f ': 

cm  file  a  f open(argv[++arg  num],"r"); 
if  (cm  file  ar  NULL)  then 
( 

fprintf (debugf , 

"Could  not  open  fsO,argv[arg_num] ) ; 
Abort(FALSE) ; 

} 

saw_F  a  TRUE; 
break; 
case  'i': 

Input  File  a  f open(argv[++arg  num],"r"); 
if  (Input  File  aa  NULL)  then 
{ 

fprintf (debugf , 

"Cannot  open  file  UsO, argv[arg_num ] ) ; 
Abort(FALSE) ; 

} 

ifdef  STARTUPDEBUG 
else 
{ 

fprintf (debugf , 

"Opened  input  file:  >sO,argv[arg_num) ) ; 

} 

endif 
break; 
case  'n': 

Myself  a  atoi (argv[++arg_num] ) ; 
saw_N  a  TRUE; 
break; 
oaae  'o': 

Output_File  a  fopen(argv[++arg_num] ,"w" ) ; 
if  (Output  Pile  aa  NULL)  then  ” 

{ 

fprintf (debugf , 

"Cannot  open  file  fsO,argv[arg  num]); 
Abort(FALSE) ; 


} 


break; 

t  ifdef  VAXDEBOG 

ease  't's 

tag  file  =  f open(argv[«.+arg  num],"r"); 
if  Ttag  file  ==  NOLL)  then 
{ 

f printf (debugf , 

"Could  not  open  ?sO,argv[arg  nun]); 
Abort(FALSE) ; 

} 

f printf (debugf , 

"Starting  to  read  tag  fileO); 

Read_TagJFile(tag__f  ile  , Tag_File_Table) ; 

f close (tag_f ile) 

break; 

P  endif 

default: 

f printf (debugf , 

"Unknown  Option  %eO,argv[arg_num] [ 1 ] ) ; 
break; 

} 

} 

else 

{ 

f printf (debugf , 

"Unknown  Argument  JsO,argv[arg_num] ) ; 

} 

} 

if  (!saw_N  II  !saw  F)  then 

{ 

f printf (debugf , 

"CM  must  have  an  Id  AND  a  Constraint  FileO); 
fprintf (debugf , 

"Usage  is:  cm  -f  dl  -n  id  C-d  f 3 ]  C-i  f 4 ]  [-o  f5]  ") 
fprintf (debugf ,"[-b  pi  p2]0); 

Abort(FALSE); 

} 

if  ( s aw_F ) 

{ 

Read_Constraint_File(om_f ile) ; 
fclose(cm  file); 

} 

#  ifdef  STARTUPDEBUG 

fprintf (debugf , "Options  processedO) ; 

*  endif 


Init_Heap( ) j 
get  optiona(argc,argv) ; 
if  Tuning  Belt)  then 
{ 

Attach_lnterrupts( ) } 

)  removed  due  to  4.2  */ 

ifdef  STARTUPDEBUG 

fprintf (debugf , "Start  Up  Initialization  DoneO) 
endif 

ifdef  VAXDEBUG 

Dump_Predicate_Table( ) ; 

Dump_Conatraint_Table( ) ; 
endif 


/•  File  subsump. e:  Contains  the  subsumption  algorithm  •/ 

#if def  CMDEBOG 

#  define  SUBSUMPDEBUG 

#  undef  LOWLEVEL 
fendif 

#  include  "cm.h" 


#if def  SUBSUMPDEBUG 
extern 
fendif 

extern  FILE 
extern  SUBSTITUTION 
extern  LITERAL 
extern  LITERAL 


extern 

extern 

extern 

extern 

extern 

static 

static 

static 

extern 

extern 

extern 


extern  LITERAL 


LITERAL 

TERM 

NODE_PARTIAL 

SUBSTITUTION 

SUBSUMPTION_ 

SUBSUMPTION_ 

int 

int 

SUBSUMPTION 


Print_Partial_List( ) ; 

•debugf ; 

I  •UnifierO; 

•Copy__Literal_List( ) ; 

•Copy__Literal_List_And_Remove_Literal  ( ) ; 

•Remove_Literal  From_List(); 
•Copy  Term_List"C); 

,  LIST  ENTRY 

•Alloc  NODE_PARTIAL_LIST_ENTRY(); 
1  »aTioc  SUBSTITUTION_NODE(); 

NODE  •Alloc” SUBSUMPTION  NODEO; 

"NODE  •queueTMAX_QUEUE_SIZE] ; 

Front  s  0} 

Back  =  0; 

PARTIAL  LIST 

•AlIoc_SUBSUMPTION_PARTIAL_LIST( ) ; 

”  Dealloc_Subsumption_Tree( ) ; 

Dealloc_SUBSUMPTION_PARTIAL_LIST_List( ) ; 

•Evaluate_One_Literal_List( ) j 


static  BOOLEAN  add  queue(node) 

SUBSUMPTION  NODE  “  •node? 

{ 

int  temp; 

#  if def  LOWLEVEL 

fprintf (debugf Entering  add  queueO); 

#  endif 

if  ((temp  =  ((Back  +  1 )  %  MAX  QUEUE  SIZE))  =*  Front) 

{ 

fprintf (stderr, "Queue  overflow  on  add  0); 
return(TRUE) ; 

) 

else 

{ 

queueCBaok]  *  node; 

Back  a  temp; 
return(FALSE) ; 


/V 


r  —  — - - - - - - - - - - —  — - f 

static  BOOLEAN  empty_queue ( ) 

{ 

if  (Back  33  Pront) 
return(TRUE) ; 

else 

return(FALSE) ; 

} 


static  SUBSUMPTIONJIODE  •remove_queue( ) 

{ 

SUBSOMPTION_NODB  »temp; 


#  ifdef  LOHLETEL 

fprintf (debugf ,"  Entering  remove  queueO); 

#  endif 

if  (empty  queueO)  then 

{ 

f printf (stderr, 

"Attempted  to  remove  from  empty  queueO); 
return(NOLL) ; 

} 

else 

{ 

temp  s  queue[Front ] ; 

Front  s  (Front  *  1 )  t  MAX_QUEUE_SIZE; 
return(temp) ; 

} 

) 

/• . . - . - - - - •/ 


NODE_PARTIAL_LXST_ENTRT  •Subsumption( body , constraint , 

subs urn ption_answer) 

/•  Input  two  literal  lists.  Output  all  partial  subsumptions 
with  all  evaluable  EQ  predicates  evaluated.  */ 


LITERAL 

LITERAL 

SUBSUMPTION  ANSWER 


•body; 

•constraint; 

•subsumption_answer; 


SUBSUMPTION  NODE 
SUBSUMPTION- NODE 
SUBSTITUTION 
BOOLEAN 
BOOLEAN 


root; 

•parent,  •child,  »last_child; 
•mgu_answer ; 
unifTable; 
done  s  FALSE; 
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BOOLEAN  subsumption_nodes_ereated  =  FALSE 

TERM  •constraint_term_list , 

•body_term  list; 

LITERAL  •temp,  »i,”»j, 

•paptial_eonstraint ; 

BOOLEAN  error_flag; 

SUBSUMPTION  STATUS  status,  eval  status; 

SUBSUMPTION"PARTIAL_LIST  answer_node_list, 

“  •next_anwer”node; 

NODE_PARTIAL_LIST_ENTRY  partial_list ,  »next_partial ; 

ifdef  SUBSUMPDEBUG 

fprintf (debugf , "Entering  Subsumption  algorithmO); 
endif 

Front  s  Back  a  0; 
partial_list.Next_Partial  a  NULL; 
root. Constraint  s  constraint; 
root. Body  =  body; 
root. Child  a  root. Sib  s  NULL; 
next_anwer_node  a  &answer_node_list; 
next~partial  a  &partial_list; 
error_flag  a  add_queue ( Aroot ) ; 
while  ((empty  queueO) 

( 

error_flag  a  ((parent  a  remove_queue ( ) )  aa  NULL); 
if  (error_flag)  fprintf (debugf , 

”  "error_flag  set  in  SubsumptionO) ; 

status  a  CREATING_CHILD; 
for  (i  a  parent->Constraint;  i  (a  NULL; 

i  a  i->Next_Literal ) 

{ 

for  (J  a  parent->Body;  J  (a  NULL; 

i  a  J->Next_Literal ) 

{ 

ifdef  LOWLEVEL 

fprintf (debugf , 

"  Body  literal  name  a  %d , " , j->Name ) ; 
fprintf (debugf , 

"Constraint  literal  namea  fdO, 

i->Name) ; 

endif 

if  (i->Name  =  =  j->Name)  then 

{ 

ifdef  LOWLEVEL 

fprintf (debugf , 

"Predicates  matchO); 

endif 

constraint_term_list  a 

Copy_Term_List(i->Arg_List) ; 
body_term_list  a  ~ 

~  Copy_Term_List( J->Arg_List) ; 
mgu_answeraUnif  ier  ( const  raint_term_list , 

”  body  term  list, 


&unif iable) ; 

if  (unifiable)  then 

{ 

subsumption  nodes  created  s  TRUE; 
child  s  Alloc_SUBSUMPTION_NODE( ) ; 
error^flag  =  add_queue ( child ) ; 
if  (error_flag)  ” 
f printf (stderr , 

"Full  queue  add  in  SubsumpO); 
temp  s  Copy_Literal_List_And_Remove_Literal( 

parent->Constraint ,i ) ; 
Apply>_Sub_List(temp,mgu_answer ) ; 
childocons  traint  =  temp; 
temp  s  Copy_Literal_List_And_Remove_Literal ( 
~  parent->Body , J ) ; 

child->Body  s  temp; 
child->Sib  s  child->Child  =  NULL; 
if  (status  s a  CREATING  CHILD)  then 
{ 

parent->Child  =  child; 
last  child  =  child; 

} 

else 

( 

last_child->Sib  =  child; 
last_ehild  *  child; 

} 

status  s  CREATING  SIB; 

} 

} 

else 

( 

ifdef  LOWLEVEL 

f printf (debugf , 

"Predicates  do  not  matchO); 

endif 

} 

) 

}  /•  end  for  •/ 

if  (status  ss  CREATING  CHILD)  then 

{ 

ifdef  LOWLEVEL 

f printf (debugf , 

"Adding  parent  node  to  answer  listO); 

endif 

next  anwer  node->Next  = 

Alloc_SUBSUMPTION__PARTIAL_LIST (  ) 
next_anwer__node  a  next_anwer_noder>Next;  " 
next”anwer“node->Next  7  NULLj 
next~*anwer~node->  Answer  =  parent; 

} 


)  /•  end  while  •/ 


/•  now  answer_node_liat  has  pointers  to  all  leaf  nodes 
to  return  values  •/ 

if  ((answer  node  list.Next)->Answer  ==  &root)  then 

{ 

#  ifdef  SUBSUMPDEBUG 

fprintf (debugf , 

"NO  partial  subsumption  occurredO); 

#  endif 

•subsumption  answer  =  OKAY; 

} 

else 

{ 

next_anwer_node  s  answer_node_list.Next; 

•subsumption  answer  =  PARTIAL; 

#  ifdef  SUBSUMPDEBUG 

fprintf (debugf , 

"A  PARTIAL  Subsumption  occurred. ... 0) ; 

#  endif 

while  ((next  anwer_node  Is  NULL)  &&  ((  done)) 

{ 

partial_constraint  = 

~  next_^anwer_node->  Answer- >  Constraint; 

next_anwer_node->Answer->Constraint  =  NULL; 
if  (partial_constraint  s»  NULL)  then 
{  /•  empty  constraint  s  full  subsumption  •/ 

#  ifdef  SUBSUMPDEBUG 

fprintf (debugf , 

"FULL  subsumption  has  occurredO); 

#  endif 

•subsumption_answer  s  FULL; 
done  =  TRUE;” 

} 

else  /•  add  constraint  to  list  •/ 

{ 

partial_constraint  s 

EvaTuate_One_Literal_List( 

"  partial_constraint , 

4eval_status ) ; 

switch  (eval  status) 

{ 

case  FULL: 

•subsumption_answer  =  FULL; 
done  =  TRUE;” 
break; 
case  OKAY: 

next  partial->Next_Partial  = 

Alloc_NODE_PARTIAL_LIST_ENTRY( ) } 
next_partlal  =” 

”  next_partial->Next_Partial ; 
next_partial”>Next_Partial”s  NULL; 
next”partial->Constraint  s 
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partial_constraint 
next_ anwer_node  = 

next_anwer_node->Next ; 

break; 

case  NO_VIOLATION_POSSIBLE: 
next_anwer_node  = 

~  —  next_anwer_node->Next; 

break; 

case  PARTIAL: 

f printf (debugf , 

"PARTIAL  ret  by  Eval  One  LitO); 
break; 
default: 

f printf (debugf , 

"Unknown  eval  status  in  SubsumpO); 


}  /•  end  while  •/ 

if  ( (partial_list.Next_Partial  =s  NULL)  &A 

( •subsumption_answer  !=  FULL)) 
•subsumption  answer  :  OKAY; 

} 

if  (subsumption_nodes_ereated)  then 

{ 

Dealloc_Subsuoption  Tree(root. Child) ; 
Dealloc_SUBSUMPTION_PARTIAL_LIST_List( 

”  answer_node_list.Next ) 

} 

ifdef  SUBSUMPDEBUG 

fprintf (debugf , "Exiting  Subsumption  algorithmO); 
ifdef  LOWLEVEL 

fprintf (debugf ,"  Printing  partial  list....O); 
Print_Partial_List(partial_list.Next_Partial ) ; 
endif 
endif 

return(partial  list. Next  Partial); 
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